160 Ptas. 
Canarias 16S pts. 

#ACION DE 
CARACTERES GAFICOS, 
CON PROGRAMA 
INCLUIDO 

JE ACABO 
EL DISEICIA R 
PANTALLAS! 
GENERADOR DE 
PROG', , EN 
B, SIC Y CODIGO 
IIAQUINA 

.ON LOGICA Y... EN LA 
MITAD DE TIEMPO 

COMO PROGRAMAR ', 

.INTETIZADORE$ 
DE VOZ: 
HABLANDO SE 
ENTIENDEN LOS 
ORDENADORE$ 

l a venganza de 
Discman en el 
Planeta Zoco 
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. " ¢c0  - ComDilador C . Comilador PaKal dior sores 
/ ' '- " Versi6n completa del " /Escial para Z- Deja el 
/ famoso C-Hisoft para CP/M. programa fuente en un  Permite trabajo direo 
Capacidades de E/S, ficheros programa direflamente sobre disco, bien en 
aleatorios y modos de acso ejecutable. Incluye ED , ,. hexadecimal o ASCII, recurar 
 ficheros rdidos o borros, 
' binario y ASCII, Incluye editor compatible con 
editor ED  compatible WORDSTAR. aherar y/o proteger 
direorios, todobajo 
PAC  WORDSAR. MODULA-2 ORCH AMSDOS y CP/M. 

. Ensamblador/des 
../'ED 80: Editor Config 
GEN 

Comp Modula-2 
)lementaci6n total del 
lenguaje MODULA-2 para 
CP/M. Comp.ilador en un 
6nico paso, listo para ser 
linkado. 

, tas. 
Fransforme su impresora 
en una imprenta. Permite la 
impresi6n en 8 tipos distintos 
de letras; configurable para 
cualquier impresora. 
POLYMAIL 

15.000 
ptas. 

POLY 
TYPEFACES 
Multitipos 
Affade a la potencia del 
programa POLYPRINT 8 
juegos adicionales de impresi6n 
a los ya existentes. 

Tutor de CP/M  
Diseffado especificamente N 7.900,,f  ,c 
para AMSTRAD. Incluye "1 " .... ' / 
THE WAND, creador de men6s   _/ 
de programas. 
WRITE 
HAND MAN / 
7,900 Sidekick en CP/M 
ptas. Residente en memoria, sin 
interferir en su programa 
principal le ofrece: Calculadora 
(Hex-Dec), Block de notas y 
telfonos, Calendario, 
Directorios, etc... 

CATALOG 

Mailing "" 9 900 Clasiiicador 11.900 
/" Permite realizar grgficos nt.e. Sencillo sistema de N '" .'fc A.signa a c, ada d. isco u,n 
// sofisticados en su impresora. I" .... MAIL-MERGE. Id6neo para 1 '' nu.mero de s,erle y, aOrta, as 
Grgficos de pastel historamas producir circulares. Induye indexa y cataloga lOS licneros \ 
\ comparativcs, gr;ficosd'lineas, editor. Permite la realizaci6n  en ese disco. -- 
 Imageries de 980 PIXELS de de etiquetas autoadhesivas.  ' 
 densidad, i=ID,T  
 .,. ,M.ULTI-TEXT _ '.'.  MASTER 
_,\']1l'11,900 M6dulo de tex os "]II'10,900 Tutor de Newword \ 8.900 LOCOSCRIPT 
/ ptas. M6dulo de textos, ptas. E×plore las e.ormes ."ptas. Dos cintas audio con 
, preparado para ser capacidades del procesador " instrucciones claras para 
./- \ ernpleado con nuestro l,lZ de textos NEW.WORD; g.ui.ado ' aprendizaje y apoyo al manual 
 , '6ptico ESP o con las teclas de desde los fundamentos del. del tratamiento de textos 
cursor, proceso de textos. LOSOSCRIPT. 
'TYPING TWO. 
DRAUGHTS- RASH COURSE FINGER 
MAN II 6.900 Inicia a tedear 7.000 Curso mecano:rfico 3.000 
Nteva versi6n mejoada y"ptas, Curso de iniciaci6n a los ntc Conozca a rondo las  ntas 
compatible con nuestra . tedados, recomendado para r'--?, posibilidades del teclado, 
 tableta GRAFPAD I1: Gran  personas no acostumbradas a escribiendo con sus diez dedos \ 
,cidad en grficos. u uso. ,, en lugar de s61o dos.  
6,200 
- ntas .,. Io  iunto 9.900 ,v^ 9.900 
" 23.800 ptas. d tas" incudo /" ptas. 

DE VENTA EN LOS MEJORES COMERClOS DE INFORMATICA 
Si Vd. tiene alguna dificultad para obtener los programas, puede dirigirse a: 
Ofites Avda. Isabel II, 16-87 
Tels. 455544 - 455533 
lnform  tica Tdlex 36698 
20011 SAN SEBASTIAN 
CONDICIONES ESPECIALES PARA DISTRIBUIDORES 
EDITOR Y DISTRIBUIDOR EXCLUSIVO PARA ESPAA 
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Aho II * Ndmero 37 • 13 at 19 de Mayo de 1986 
160 ptas. (incluido I.V.A.) 
Canarias, 155 ptas. + lO ptas. sobretasa area 
Ceuta y Melilla, 155 plas. 

Primera r. Joystick 
' " piano Wive/a aventura de Rasputin, el rey de la oscuridad. 

Primer progroma de mecanogrofia pora et 
PCW8256. 

Primeros 
pasos 
Disehar carocteres grdficos (arden SYMBOL) es, 
primero, todo un arte, y, segundo, una tEcnica que 
requiere set exp/icada, contando con/as adecuadas 
herramientas de ayuda. En este at#cub se re(me toda 
eso; disfrulad/o. 

Ufil ol programodor 

"[odos ban ofdo hab/ar de Cs cornpi/adores, y/o que 
hacen suena a magia o a /eyenda. Sin embargo, no es 
tan difci/ comprender el funcionamienta de un 
campi/ador, y, para probar/o, Amstrad Semanaf ha 
hecho uno que crea pragrmas en Basic, mnem6nicos 
en ensambtador, c6digo mdquina y ficheros ASCII. 

de pruebas ; 
Los ordenadores pueden hablar. Eso todo et mundo 
/o sabe, y nuestra revista ya prob6, en su dia, un 
sintetizador de voz. Siempre es conveniente abordar 
un lema desde rods de un punto de vista, para 
ctarificado, par b que repelimos e/inlenlo con otra 
mSquina distinto en concepc/6n y pre#aciones. 

ProgramAcci  n 
Exp/icamos comptetamente /o que es un a/goritmo, 
c6mo se crea, par que se ut#iza y c6mo se re/ociona 
con Cs famosos diagramas de f/u/o. 

Comunicamos a todo$ nues- 
tros lectores que desde el 1 de 
mayo nuestra direcci6n y tel- 
fonos son los siguientes: 
HOBBY PRESS, S.A. 
Ctra. de irdn km 12,400 
(Fuencarral). 28049 MADRID 
Telefonos: 
SuscripcJones: 734 65 O0 
Redacci6n: 734 70 12 
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LO NUESTRO ES HACER BUENAS GESTIONES 
PARA 

AMSTRAD, PC Y COMPATIBLES 

/ No e  tamos para uegos / 

DEMOSTRACIONES DE NUESTRO SOFTWARE 
COMERClAL Y DE GESTION 
EN NUESTRO STAND 

les esperamos en 

PRECIOS ESPECI, I-ES !. ° FERIA AMSTRAD 

F/WSTUR/CICN - SSlo teclee un cdigo y solen todos los dotos del cllente. Nur.eroci correletivo tico. ite 30 pructos 
distintos par fturo. ite 30 pructos distintos par fturo. AuOticos, decuentos cargos, IVA. Prorcio 5 totole 
par fturo. (P 15.3 incl. ]VA) 
PPUSTOS - Ouordo en morio los presupuestos y extiende los fturos. Cceptos de 2 corteres co uno (3 rengles de 
escr£turo) {P 18.3 $nc. IVA) 
TAS - PEES, BOS, IENTES - 3 ficheros seporo. Remenes totole, uoitorios o porcioles. El meJor xllior de 
CTILID ol dia. (P 8, inc1.IVA) 
TR   IVA - CIgo de 9 tg[o$ olfurcos. 25 dgto denni. Uno solo pto110 entro y o1do,  
(P 15.3 n:1. IVA) 
ITES (a etteto) - 11 ceos dtno pore 1oco1$ztn. Etlquetos 4 modelos dttnto$ en oltde de dos. Et me fel 
RIBOS - Resuelve el prtemo Sntermnle o ooc$e, cnIdode$, coition. FJo Io co de1 normoltzo y 12 
tncZ. IVA). 
RTES - Trottento de minute y focturos. ReSmene po grupo, kmo ob[ertos permtemente cor[eccie c[o, 
et:. hosto  rre. fine1. (P 35. tncI.IVA) 
IVA R  - Relleno 1qudoctes Hoc[eno. Intruce cuento IVA gotos. (P 18.9 nc.IVA) 
UIZIES - Lecture y trot£ento de ctore csumos. (u, gos, luz,etc) Exten[ tec[bos y toto1zoce 5cos. 
LIBS L IVA - Ctrole de repercutdo y sorto orden nurco. Re6mene estudtos cperotvos. Relleno &qud 
c[ende. {P# 1&.8 nci. IVA) 
INISTRI DE FI( - Gett o[ete profes&ote$. Sencillo mejo cuolquter per$o (P 40. ncl. IrA) 
FRI Y A - t undo. F[cheros c1£ente, pructo, descuento y corgos. Tos Io res6ne. (P 18.9 [ncI.IVA 

PEDIDOS, TELEFONO, CARTA O TELEX 
I AO DE GARAHTIA REEMBOLSOSINGASTOS. 
ESPECIAL A COLABORADORES 
• "  RESTO DE ESPAA 
-1  ,,m,,,,, T..x.. ' dllial )'ici; 
NUESTRO EQUIPO PROFESIONAL 
PARA CUALQUIER MODIFICACION QUE in ! GROTUR, S A • • 
UD. INDIQUE EN LOS PROGRAMAS, A ISTADOR, 27 
UN PREClO MODICO 
 . 474 55 32 
Llamar o contactar con Juan Luis Ruiz i 



ECANOGRAFIA ASISTIDA 

POR ORDENADOR 

ado que el PCW 8256 
estc pensado como 
sustituto pora la mcquina de escribir, nada m6s 
adecuado que un programa para aprender a 
escribir a m6quina. No creen? Y a nuestra re- 
dacci6n ha Ilegado un programa pensado pa- 
ra eslo. 
Est6 estructurado en tres etapas, de mane- 
ra que 61 o los alumnos empiezan practican- 
do la colocaci6n de los manos sobre el tecla- 
do, la siguiente practicando el abecedario y 
frases cortas, y la 01tima con frases grandes 
y textos. En total son 17 lecciones muy com- 
pletas. 
El programa detecta los errores, presenta el 
total de los mismos en pantalla, y adem6s emi- 
te un pitido cuando se mete la pata. 
Otra opini6n interesante es la posibilidad de 
crear un fichero de alumnos, donde se alma- 
cenan los datos de los alumnos, tales como 
hombre, n0mero, lecciones superadas y diver- 
sos datos referentes a cada lecci6n. El progra- 
ma permite 60 alumnos pot cada cara de dis- 
quete, pero utilizando varios discos, se pueden 
tener mcs alumnos, aunque su ngmero ser6 
siempre de 1 a 60. 

El men0 principal permite elegir el n0mero 
de la lecci6n, dentro de 6sta el nOmero del ejer- 
cicio por el que se quiere empezar. Asi se pue- 
den interrumpir las lecciones en cualquier mo- 
mento, empezando la siguiente sesi6n por don- 
de se interrumpi6 la anterior. Una particula- 
ridad muy interesante del programa es que el 
propio ordenador controla los errores del 
alumno, oblig6ndole a repetir la lecci6n has- 
ta que el resultado es aceptable. Para las lec- 
clones destinadas a adquirir velocidad, el pro- 
grama presenta un cron6metro para medir las 
pulsaciones, que se pone a cero coda vez que 
se empieza un ejercicio. AI acabar el ejercicio, 
el ordenador calcula los pulsaciones por mi- 
nuto alcanzadas. Coda vez que se supera una 
lecci6n, aparece el mensaje de Ilamar al pro- 
fesor, para que 6ste introduzca el disco de ges- 
ti6n de alumnos, para registrar el resultado al- 
canzado en esta lecci6n. 
El programa viene con un manual donde se 
explica de manera clara el funcionamiento del 
mismo, y un ap6ndice con el contenido de los 
ejercicios. 
Es un programa bien Iogrado, orientado ha- 
cia las academias de mecanografia, aunque 
perfectamente apto para el uso por un parti- 
cular, siempre que no haga trampas, claro. 

(  ANADORES 
DE NUESTRO CONCURSO 

Cmo en amos anterio- 
res, HOBBY PRESS estuvo presente en la 
pasada feria Expo Ocio '86. Desde aqui 
queremos dar las gracios a todos los lectores 
que visitaron personalmente nuestro stand, 
contribuyendo con su presencia al enorme 6xi- 
to de nuestra participaci6n. 
Entre estos lectores que acudieron a Expo 
Ocio, HOBBY PRESS organiz6 un sorteo 
diario de c6maras Polaroid en el que resulta- 
ron premiados: 
D. Ricardo Herrero Migel. (Carrera Juan 
Ram6n, 4. Madrid). 
D. Jess Verd( Tamayo. (Monforte de Le- 
mos, 45. Madrid). 
D. Pedro Marlin. (Leopoldo Alas Clar[n, 29. 
Madrid). 
D. Adolfo Garda Pardo. (Corregidor Sr. Eli- 
pa, 15. Madrid). 
D. Roberlo Alonso Salgado. (Chile, 86. Cos- 
lada). 
D. Israel Guerrero Vdzquez. (S6nchez Bar- 
caiztegui, 31. Madrid). 

D. Jess L6pez de la Puente. (Avda. Canta- 
rranas, 11. Alcorc6n). 
D. Jos Radii Castro Frfas. (Avda. Guada- 
lajara, 2. Azuqueca). 
D. J. Antonio Cabrejas Merino. (Fray J. de 
CerdeiriSa, 47. Madrid). 
La feria se clausur6 con otro sorteo especial, 
esta vez entre todos los suscriptores, de un 
magnifico telescopio. El afortunado ganador, 
D. Miguel Angel Morales Ruiz- Tapiador. (Ra- 
fael De Riego, 18. Madrid), aparece en la fo- 
tografia en el momento de recoger su premio. 
Nuestra m6s cordial enhorabuena a todos 
ellos. 

• 
OSIBL 

UTURO D L • 

PRODUCT, 

CL ' IR 

1. Como muchos ya sab6is, Ams- 
trad Consemer Electronics, compr6 
los derechos mundiales exclusivos de 
todos los microordenadores y peri- 
fricos de Sinclair. Amstrad tambi6n tie- 
ne los derechos de sus pr6ximos productos. 
A parte de los 5.000.000 libras que Ams- 
trad pag6 por los micros, tambi6n ha compra- 
do todo el stock de Sinclair por Io que podr6 
pagar su deuda que ascendia a 7 millones de 
libras. 
Parece ser que Amstrad harg algunas mo- 
dificaciones en el 128 K. Probablemente ins- 
talar6 un casette como parte integral de la m6- 
quina y este proyecto se Ilevar6 a cabo antes 
de los pr6ximas navidades. 
Tambin es posible que incorporen un port 
de joystick con Io que Amstrad estudia la po- 
sibilidad de dejarlo en el precio de 140 libras, 
es decir, 40 libras m6s barato que el actual. 
Sin embargo, parece ser que el QL no tiene 
porvenir, aunque tambin en este modelo, 
Amstrad est pensando fabricar el QL con un 
disc-drive integral que sustituir al microdri- 
ve actual. 
Sinclair Research continuar6 con su funci6n 
original de desarroltar novedades. En este mo- 
mento estcn trabajando en dos proyectos: 
silicon-wafers y PANDORA, el microodenador 
port6til, por el cual Amstrad ha mostrado 
mucho interns. 
Por desgracia habr una gran disminuci6n 
en la plantilla de la compahia, pasando la ma- 
yor parte de ella a los departamentos de dis- 
tribuci6n y marketing. 
Amstrad propone que el Spectrum 128 K sea 
fabricado por los tres compafiias: Timex, AB 
Electric y Thorn, en el Re'no Unido, en lugar 
de Corea, donde actualmente se fabrican s6- 
Io modelos CPC. 
2. U.S.Gold va a sacar una gama de soft- 
ware barato con un precio de 3 libras en lu- 
gar de 10 libras. Su finalidad es ampliar el soft- 
ware para los ordenadores de 16 bits (C64, 
128K, Atari y Amiga). 

/COHOeer AMSTRAD 5 



Presenta: el universo del software, 

La mSs moderna base de datos 
,D, ELTA, superJndose a si misma, 
DELTA +'; desarrollada para 
CP/M por COMPSOFT con todo 
en espafiol. 
Disefia sus propios ficheros; des- 
de un simple fichero de hom- 
bres y direcciones basra su pro- 
pio sistema contable. El formato 
standar DIF permite intercam- 
biar datos en DELTA, desde /as 
hojas de cJlculo CRACKER II, 
etc.., y viceversa. Intercambio de 
datos con la mayoria de los tra- 
tamientos de texto cored NEW- 
WORD para MAILING. 
Induye un sencillo y funcional 
sistema de impresiOn de etique- 
tas con: hasta 5 columnas de eti- 
quetas, 65 caracteres por etique- 
tas, 20 lineas con 3 campos cada 
una. 
• PROGRAMABIE Y RELACIO- 
NAL, 
• EICHER05 INDEXAD05. 
• HASTA 90 CAMP05 6 ZOO0 
CA RAC TER ES. 
• MULTIPLE5 515TEMA5 DE BUS- 
QUEDA, 8 CLAVES. 
• FICHEROS DE HASTA 8 
• 8CRUPOSDETRANSACCION 
POR REGISTRO, 

BASE 
DE DATOS 

17.850 pts. 

Programa de tratamiento de tex- 
tos mejorando tOdD Io anterior. 
Manual y programa en espaol, 
que le ensearJn con facilidad y 
rapidez Io mJs avanzadoen pro- 
cesadores de textos. Compatibi- 
lidad funcional con WORDSTAR 
incluyendo muchas capacidades 
adicionales. 
Tiene un potente MAIL-MERGE 
con opci6n de selecci6n de des- 
tinatarios pot criterios base de 
datos, creaci6n de documentos, 
impresiOn de etiquetas. Utiliza 
todd el espacio de disco. Ensam- 
blaje de textos, sustituci6n, etc., 
de la forma mJs fJcil: autohace 
copias de seguridad, iNUNCA 
PERDERA UN TEXTO! 
• f, ACENTOS, DIERESIS, ETC... 
• PRESENTACIONEXACTAENPAN- 
TALLA DEL FUTURO DOCU- 
MENTO IMPRESO. 
• INTERCAMBIOSDEFICHEROS 
CON CRACKER. 
• VARIABLE5 5USTITUIBLE5 EN 
IMPRESORA, 
• POTENTE CALCULADORA. 
• COMPROBADORORTOGRA- 
FICO Y GRAN DICCIONARIO 
(45£00 TERMIN05 A/vtPLIA- 
BLES). 
• POSIBILIDAD DE LECTURA DE 
FICHER05 DE DELTA, C__RD 
BOX, 5UPERCALC, DBASE I1 
ETC... 

TRATAMIENTO 
DE TEXTOS 

17.850 pts. 

EDITOR Y DISTRIBUIDOR E,XCLUSIVO PARA ESPAIA 

El CRACK de las hojas de cJlcu- 
[o, la que deja detrJs a/resto. 
Funciones nunca vistas, forma- 
ted de fechas, salvaguardia con- 
tinua sobre un fichero. Realiza 
• automticamente copias de se- 
guridad. AdemJs de las tmdicio- 
nales funciones, CRACKER II 
posee funciones 16gicas, estadis- 
ticas y de alta matemktica. Inter- 
cambia datos con NEWWORD, 
bases de da tos y la mayoria de/as 
hojas de clculo. 
• CELDAS PROGRAMABLES. 
• FUNCIONE5 ESPECIAIF_5: 
Fecha, dias; desde y basra la fe- 
cha de la semana, del afio, lapso 
de tiempo, retraso, beep entra- 
da, saludo usuario. 
• SISTEMA DEAYUDA ON-LINE. 
• 5UMA CONDICIONAL. 
• TOMAR DECISIONE5 EN LA 
HOJA. 
• 18 MOD05 GRAFICOS DIS- 
TINT05. 
• TRADICIONALE5 FUNCIONE5 
MATEMATICA5 YAMPLIACION, 
FUNCIONES ESTADISTICA5 Y 
L OGICAS. 
• GENERA GRAFIC05 EN BASE 
A LOS DAT05. 

HOJA 
DE cALCULO 

17.850 pts. 



Infor 

• 
"t  ca 

'$, 0 

sus est " 

NUCLEUS mJs que una estre/la 
una constelaciOn; tres ESTREL LA5 
en un 5UPERPROCRAMA, la 
/uci6n a cua/quier aplicaci6n por 
compleja que sea, NUCLEUS es 
CENERADOR DE PROGRAMAS, 
BASE DE DAT05 Y CENERA- 
DOR DE INFORMES. 
Toda la informaciOn es multi-in- 
tercambiable y de libre acceso 
por cualquiera de los demJs 
programas. Asi los datos de la 
base los condicionamos y utili- 
zamos en el generador de pro- 
gderamas y los imprimimos a tra vs 
I generador de informes. 
• GENERADOR DEPROGRAMA5 
EN MALLARD BASIC. 
• CREACION DE BASE5 DE DA- 
TO5 RELACIONALE5. 
• GENERADOR DE INFORMES. 
• DISEiIADOR DE FORMAT05. 
• DISEIADOR DE PANTALLAS. 
• CODIGO FUENTE DE LIBRE 
ACCESO Y LIBRE DE ERROR. 
• DISEJIA 5U PROPIO 515TEMA. 

• MAILMERG£ 

La revoluci6n de/pensamiento, 
BRAINSTORM es un programa 
que piensa con Vd. 
El compafiero ideal para el em- 
presario, director o cualquier 
persona que tenga que planifi- 
carse o tomar decisiones. 
BRAINSTORM es la ayuda nece- 
saria para su organizaciOn. El 
programa que se ha standariza- 
do en Ing/aterra, tan necesario, 
(til y popular como una base de 
datos o un tratamiento de textos. 
• ORGANIZA POR RANG05. 
• ACCESO DE5CENDENTE POR- 
MENORIZADO. 
• PLANIFICACIONA NIVEL DIA. 
• DECISIONESA LARGOPLAZO. 
• REVISION DE PROBLEMAS. 
• 51MULTANEIZACION DE TA- 
REAS. 
• PROCESO TOP/DOWN. 

Piii... su ordenador le comunica: 
La revolucidn de las comunica- 
ciones, de la mano de OFITES 
INFORMATICA, Ilega a Espafia. 
El nuevo mundo de las comuni- 
caciones digitales Io tiene a su 
disposiciSn, las redes de transmi- 
si6n e/ectr6nica digitalizada, con 
su PCW 8256 o PCW 8512 a tray, s 
de un interface R5 232-C con 
otros ordenadores, redes de trans- 
misi6n de datos, etc..., Vd. podr# 
enviar o recibir ficheros de texto 
o de datos, ASCII, etc..., creados 
por NEWWORD y otros... 
• TRANSICIONES DIRECTAS EN 
RED. 
• COMPATIBILIDADCONNEW- 
WORD. 
• POSIBILIDADES DE TRANSMI- 
51ONES VIA MODEM, RED 
TELEFONICA. 
• COMUNICACIONINSTANTA- 
NEA. 

GENERADOR , 
DE PROGRAMAS 

26.780 pts, 

OR GA NIZA DOR 
DE IDEAS 

17.850 pts, 
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Avda. Isabel II, 1 - 8  
Tels. 455544 - 455533 
flex 36698 
20011 SAN SEBASTIAN 
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REAR NUESTRO$ 
ARACTERES E$ SENCILLO 

Si echa un vistazo atr6s, recordar6 que 
ya vimos la forma de crear y utilizar 
los gr6ficos definidos. Esperamos que a 

estas alturas tenga ya bastant.e 
pr(ctica en el desifio de sus prop,os 

caracteres. 

haya te- 
nido que lu- 
char con c61culos un poco complicados, pero 
no se preocupe porque va a encontar una 
gran ayuda en nuestro primer programa. 

Programa uno 

Es una versi6n muy sencillita de un genera- 
dor de caracteres que realizar6 todo el tra- 
bajo pesado de nuestros dibujos y que, de mo- 
mento, ser6 suficiente. 
Cuando Io ejecutemos nos aparecer en la 
pantalla una gran red de 8 por 8 cuodros don- 
de vamos a poder disear cualquier car6cter 
por medio de un cursor m6vil. Las teclas de 
movimiento del cursor se utilizan para colo- 
carlo en cualquiera de los 64 cuadros de esta 
red. 
En el momento que desee rellenar un cua- 
drado pulse la tecla COPY, y el elegido que- 
dar6 coloreado. Para volverle al estado ini- 
cial -vacio- solamente tendr6 que pulsar 
COPY otra vez. Ahora disear caracteres se- 
r6 bastante m6s f6cil. Unicarnente tenemos 
que dar color a los cuadros que necesitemos 
para nuestros propios gr6ficos. 
Cuando utilice este programa ver que 61 
mismo se encarga de realizar todos los c61cu- 
los necesarios. El valor correspondiente a co- 
da linea aparece a un lado de la red. Por si 
le sirve de referencia, aparece tambi6n el n0- 
mero binario equivalente. 
Observe que los unos y los ceros de los n0- 
meros binarios se corresponden con el esta- 

do de los cuadros de Io reticula. Un <uno> sigo 
nifica que el cuadro est6 coloreado, un <ce- 
ro que permanece vacio -sin color. En la 
parte de abajo se imprime el car6cter a tama- 
no real, as/que de esta manera ve c6mo que- 
dar en sus programas. Una vez que est6 sa- 
tisfecho del car6cter que acaba de crear de- 
be tomar nora de los ocho valores sealados 
en el dibujo. Despu6s podemos utilizarlos con 
el comando SYMBOL para repetir este mismo 
gr6fico en cualquiera de nuestros propios pro- 
gramas. 
A continuaci6n veremos unas cuantas t6c- 
nicas que pueden sernos de gran utilidad cuan- 
do queramos usar caracteres creados por no- 
sotros mismos para una determinada aplica- 
ci6n. 

Programa dos 

En el programa 2 hemos dibujado una m- 
quina de vapor. Inicialice su Amstrad para 
hacer desaparecer pot completo el programo 
1 antes de ejecutar el segundo. Necesitamos 
un gr6fico bastante grande, asi que vamos a 
utilizar seis caracteres individuales para Ilevar- 
Io a cabo. El tamao del dibujo en conjunto 
es de tres caracteres de largo por dos de alto. 
Una vez que hemos diseado la forma de 
cada una de las partes de la Iocomotora, el 
siguiente problema que se nos presenta es su 
colocaci6n correcta en la pantalla. La linea su- 
perior de la m6quina de vapor contiene los ca- 
racteres 240, 241 y 242, mientras que la infe- 
rior est6 formada por 243, 244 y 245. 
Hay diferentes formas de escribir este gr6- 
rico. Con toda probabilidad, el m6s evidente 
es mover el cursor de textos a la posici6n de- 
seada y entonces dibujar los tres primeros ca- 
racteres uno a continuaci6n del otro. Despu6s 
colocamos el cursor en la posici6n correcta de 
la linea inferior con un astuto LOCATE y es- 
cribimos los tres caracteres restantes. 

El progamo 2 utiliza este m6todo. Es eviden- 
te que funciona, pero sin embargo no est6 muy 
claro Io que est6 haciendo. Seria conveniente 
detallorlo un poco m6s, sobre todo si forma 
parte de un listado mucho m6s largo y com- 
plicado. 
Un m6todo ms elegante es combinar los 
seis caracteres aislados dentro de una varia- 
ble literal o cadena e imprimirla toda a la vez 
en una linea. EL programa 3 nos demuestra 
c6mo se hace. 
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Programa tres 

En la linea 120 hemos unidoo concate- 
nado)) los tres caracteres de la ilia de arribo 
en una cadena a la que hemos Ilamado 
<superior$. 
Los tres caracteres restantes se combinan 
formando <<inferiorS se unen en la linea 140. 
Observe que hemos introducido ciertos ca- 
racteres nuevos al final de la cadena. ,Re- 

cuerda que hacen CHR$ (IO) y CHR 
(8)? Son los c6digos de control del cursor. Se 
utilizan para colocarle en el lugar exacto don- 
de ha de escribirse inferior$. Lo hemos 
bajado una linea (CHR$ (10))y retrasado tres 
posiciones (CHR$ (8)). En este momento est6 
colocado justamente debajo del princiio de 
<superiorS. 
Finalmente hemos dado un nombre muy sig- 
nificativo a la cadena completa y la Ilamamos 
docomotora$. Siempre que queramos es- 
cribir el gr6fico completo, ser6 muy sencillo uti- 
lizando el comando: 
PRINT IocomotoraS 
usando LOCATE para colocar el cursor en la 
posici6n que necesitamos. 
A primera vista puede parecer un trabajo 
demasiado grande para obtener el mismo re- 
sultado que el programa 2. Sin embargo, des- 
cubrir6 que es mucho m6s sencillo codificar 
programas largos y complejos usando este m6- 
todo y que adem6s es mucho m6s f6cil seguir- 
lOS. 
Uno de los inconvenientes con el que nos en- 
contramos a la hora de escribir caracteres es 
que normalmente Io hacemos con los colores 
de papel y pluma en curso. 
La figura se imprime con el color de la plu- 
ma (PEN), mientras que el rondo Io sacamos 
del color del papel (PAPER). 
Sin embargo, pudiera ocurrir que quisi6ra- 
mos conseguir un gr6fico formado por varios 
colores diferentes. 
Necesitamos dibujar una cara rosa, con ojos 
azules y labios rojos. 
El problema consiste en que si tenemos que 
dibujar el car6cter completo -con colores 
incluidos- el Basic no est6 preparado para 
que mediante una instrucci6n SYMBOL poda- 
mos hacerlo. 
Para conseguirlo necesitamos disear varios 
caracteres coda uno de los cuales ser6 una 
parte de la tara. 
Casi todos los simbolos formarian la cabe- 
za, otros representarian los ojos, nariz y bo- 
ca. 
Parece baslante convincente pensar que si 
primero seleccionamos el color indicodo pa- 
ra dibujar la cara, cambiamos la tinta al co- 
lor azul y movemos convenientemente el cur- 
sor, podemos imprimir encima de la cara los 
ojos azules. Por desgracia, como ver6 en el 
programa 4, este m6todo no funciona muy sa- 
tisfactoriamente. 

Programa cuatro 

El programa trabaja por etapas y coda una 
de elias no pide pulsar una tecla antes de pa- 
sara la siguiente. Primero se imprimen total- 
mente las partes de la cara. Hasta aquf muy 
bien. Sin embargo, cuondo dibujamos los ojos, 
el fondo negro de sus caracteres se sobreim- 
prime al anterior rosa de la cara. 

Ocurre asi porque los caracteres impresos 
con el cursor de textos rellenan cuadrados en 
los que los figuras y los fondos salen en el co- 
lor de las plumas (PEN) y papel (PAPER) que 
tengamos seleccionados en este momento. 
Con la nariz y la boca tenemos el mismo pro- 
blema. 
Por suerte hay una forma de resolverlo. Po- 
demos dibujar los caracteres en Io que cono- 
cemos como modo transparente, en el que 
el rondo, o el color del papel no se imprime. 
En efecto es transparente, de modo que cual- 
quier cosa que haya en la pantalla anterior- 
mente se respeta y aparece completa. 
Todo esto quiere decir que si colocamos el 
Amstrad en modo transparente Iograramos 
porter nuestros ojos azules sin borrar el rosa 
de la cara que aparece entera porque el fon- 
do del car6cter de los ojos no tiene color. 
En Basic no hay ninguna palabra clave que 
nos permita escribir en modo transparente. 
Necesitamos usar el car6cter de control que 
tiene c6digo 22 seguido de un segundo n0me- 
ro que Io activa o desactiva oportunamente. 
Activamos el modo transparente con: 
PRINT CHR$ (22); CHRS (1) 
y Io desactivamos con: 
PRINT CHRS (22); CHRS (0) 
Cuando utilice este modo de escrilura debe 
recordar que ha de quitar el programa en el 
momenlo oportuno o pueden ocurrirle cosas 
muy extrafias al ejecutarlo. 
Para modificar el programa 4 afiadamos las 
siguientes lineas: 
175 PRINT CHRS (22); CHRS (1) 
410 PRINT CHRS (22); CHRS (0) 
Ahora los ojos, la boca y la nariz se dibuja- 
r6n sin destruir ninguna parte de la tara. El 
papel que hemos utilizado es transparente a 
la vista, dejando que aparezca el fondo an- 
terior. Si utilizamos este m6todo podemos ob- 
tener cualquier car6cter multicolor. 
A prop6sito, podriamos unir todos estos ca- 
racleres de manera que formaran una varia- 
ble literal o cadena como hicimos con hues- 
Ira Iocomotora de vapor. 
Si examina la lista de c6digos de control en 
el Manual del Usuario ver6 que tambi6n exis- 
ten caracteres para seleccionar los tintas de 
la pluma (PEN) y el papel (PAPER). 
Tal vez le apetezca contruir una sencilla 
dena queen su momento qjnlara de una 
vez toda la tara con sus distintos colores. 
Es posible hacerlo y seguro que, cuando ha- 
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ya realizado una serie de caras direrentes en 
la pantaUa, todo esto le parecea muy f6cil. 
Otra facilidad muy utilizada para escribir ca- 
racteres en la pantalla es la posibilidad de di- 
bujar en la posici6n del cursor de grficos en 
vez del cursor de textos. Tiene la ventaja de 
que los caraderes pueden imprimirse en cual- 
quier coordenada grfica sin la limitaci6n ha- 
bitual, alga pesada, de tener que hacerlo en 
las posiciones del cursor de textos. 
Esta mayor definici6n puede sernos muy 0til 
a la hora de marcar diagramas, grficos o co- 
sos par el estilo. 
Para realizar dibujos con el cursor de gr6fi- 
cos utilice antes el comando TAG. El progra- 
ma 5 demuestra c6mo le afecta a la posici6n 
de escritura de un texto: 

La primera instrucci6n PRINT, de la linea 40, 
escribe a partir de la posici6n donde est co- 
Iocado el cursor de textos. Hemos activado el 
comando TAG en la linea 40 asi que obser- 
var que el siguiente PRINT aparecer6 junto 
al borde inferior de la pantalla en el punto 
donde hemos colocado el cursor gr6fico con 
la linea 50. 
Es necesario subir un poco la colocaci6n de 
dicho cursor ya que si le dejamos en su posi- 
ci6n inicial (0,0), el texto se escribiria par de- 
bajo del borde inferior de la pantalla. Quite 
la linea 50 y vea Io que puede ocurrir. 
Observe que cuando imprimimos con el cur- 
sor gr6fico la tinta utilizada es la de la pluma 
de los gr6ficos que est en curso y no la de 
los textos. Puede presentornos problemas a la 
hora de cambiar el color del texto escrito con 
el cursor de grficos. 
No hay una forma directa de cambiar la plu- 
ma de los gr6ficos excepto el trazar una linea 
o dibujar un punto. Esto puede ser una mo- 
lestia ya que no siempre estamos dispuestos 
a dibujar alga sabre nuestra <<preciosa obra 
de arte s61o para cambiar el color de los gr6- 
ficos. 
Una soluci6n es realizar un falso PLOT en 
un punto que est6 fuera de la pantalla. Si se 
aade una linea parecida a: 
45 PLOT 1000,1000,3 
al programa 5, la pluma de los gr6ficos pa- 
sar a ser la nOmero 3 y todo el texto escrito 
con el cursor gr6fico estar6 ahora dibujado 
con el color correspondiente a la pluma 3. 
El lector observador se habr6 dado cuenta 
de otra consecuencia que tiene el hecho de di- 
bujar con el cursor de grgficos. Despu6s de im- 
primir cualquier cargcter las flechas de los sim- 
bolos que representan el salto de la linea y la 
vuelta de corro tambi6n aparecen. Para su- 
primir estos simbolos de control debemos co- 
Iocar un punto y coma al final de cada instruc- 
ci6n PRINT que sigue a TAG. Pruebe hacerlo 
en el programa 5. 

En el articulo anterior mencionamos que era 
poco probable que necesitara redisear todo 
el juego de caracteres alfanumricos. Pero hay 
una aplicoci6n en la que hacerlo puede tener 
una gran utilidad. 
A estas alturas ya debe estar familiarizado 
con los diferentes modos de pantalla. Proba- 
blemente sabr6 que si quiere una gran gama 
de colores necesita usar el Modo 0. Desgra- 
ciadamente as/s61o podremos tener 20 carac- 
teres par lineo. 
;.No serla fant6stico tener la posi- 
bilidad de 16 colores y adem6s 40 
caracteres par linea? Quiz puedo sor- 
prenderle leer que esto se puede hacer Ibue- 
no, casi). 
En el Modo 0 los caracferes aparecen al do- 
ble de su anchura normal, entendiendo par 
normal el Modo 1. 
Si podemos rediseSar cualquier carbcter de 
modo que ocupe s61o la parte izquierda de 
una celda de car5cter cuando le imprimamos 
en Modo 0 aparecer6 a tamaSo normal. Po- 
driamos hacerlo con cada letra del alfabeto, 
utilizando el programa generador de carac- 
teres, y obtendriamos un juego de simbolos 
que tienen la mitad de anchura. 
Par Io tanto, podemos escribir hasta 20 de 
estos caracteres en una linea de Modo 0. 
,flay, par supuesto, un problema (iVaya, 
siempre hay algaA). Si imprimimos Ioscarac- 
teres con el cursor de textos saldr6n uno tras 
otro separados, el intervalo correspondiente 
al de carecter en Modo 0. Lo que quiere de- 
cirque nos hemos quedado atascados con 20 
en una linea. 
Si redefinimos nuestros caracteres de esta 
manera y utilizamos el comando: 
PRINT ABC 
en dicho Modo, aparecer6 en la pantalla co- 
ma: 
ABC 
con un hueco entre coda letra. 
;.Estudiamos la farina de c6mo so- 
lucionar el problema? Recuerda que po- 
demos utilizar el comando TAG y dibujar en 
las coordenadas gr6ficas x e y. Asi queen lu- 
gar de Io anterior podriamos escribir primero 
A, mover (MOVE) el cursor de grgficos hacia 
la derecha de A el espacio exacto y alli impri- 
mir B. En efecto, asi hemos eliminado los hue- 
cos entre caracteres. 
El programa 6 has Io muestra. Hemos redi- 
seado solamente unos cuantos caracteres pa- 
ra ilustrar esta tcnica. Evidentemente es un 
poco pesado escribir textos de esta manera, 
pero puede sernos muy Otil cuando sacamos 
en la pantalla palabras tales coma PUNTUA- 
ClaN, BONIFICACION o VIDAS. 
Par desgracia algunos caracteres, coma la 
W y la M, son dificiles de representar a mitad 
del tamafio normal, porque necesitar6n ocu- 
par un espacio ligeramente ms ancho. No se 
olvide ajustar correctamente el movimiento del 
cursor de gr6ficos en estos casos. 

• 

• 
L •m 

Programa seis 

En el programa 6 encontramos caracteres 
de 20 pixels, que nos permitirn tener 32 sim- 
bolos par linea. Aunque no podemos mane- 
jar los 40 caracteres par finea, al menos si que 
podemos mejorar los 20 que has indica la nor- 
ma. 
Podria utilizarse una variante de esta t6cni- 
ca para crear caracteres ms grandes en Mo- 
do 2 -normalmente tenemas 80 par J/nea- 
que nos sedan muy gtiles para crear grandes 
cabeceras o titulos. En este caso necesitaria- 
mos ampliar cada carcter a dos posiciones 
e imprimir los dos nuevos caracteres uno al la- 
do del otro. 
Experimente con ella. 
Finalizamos par esta semana. El programa 
7 nos regne varios de los temas recorridos en 
los capitulos anteriores. Es un corto cursa de 
repaso. 

Programa siete 
Vea si puede hacer funcianar el programa 
hasta el final y entender coda una de las t6c- 
nicas que utiliza. Est6 dividido en secciones pa- 
ra una mayor claridad mediante las inslruc- 
ciones REM apropiadas a fin de que no nos 
resulte muy dificil. 
Y par el momenta hemos terminado. PrepS- 
rese para discutir con nosotros sabre la l- 
gica de los colores la semona que vie- 
he. 
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10 REM PROGRAMA I 
20 MODE I 
30 SYMBOL 
40 SYMBOL 252,255129,129,129,129,1 
29,129,255 
50 SYMBOL 253.255,255,255q255,255,2 
55,255,255 
60 SYMBOL 254,255,129,129,153,153,1 
29.129,255 
70 SYMBOL 255,255,255,255.231,231,2 
55,255,255 
80 FOR fila=1 TO 8 
90 FOR columna=1 TO S 
100 LOCATE columnafila 
110 PRINT CHR$(252) 
120 NEXT columna 
130 LOCATE 12,fila 
140 PRINT USING"###":valor(abajo) 
150 LOCATE 18fila 
16(I PRINT BIN$(valr(abao),8) 
170 NEXT ila 
180 columna-lila-1 
190 LOCATE columna,ila 
200 PRINT CHR$(254) 
210 WHILE -I 
22(I anticolumn-columna 
230 antiila=ila 
240 GOSUB 460:REM ACTUALIZACION DE 
NUMEROS 
250 GOSUB 570:REM PRINT CARACTER 
260 IF INKEY(O)=O THEN ila=ila-1 
270 IF ila 0 THEN ila 8 
280 IF INKEY(2) 0 THEN ila fila+1 
290 IF ila=9 THEN ila=1 
300 IF INKEY(8)=O THEN columna-colu 
tuna-1 
310 IF columna 0 THEN columna 8 
320 IF INKEY(1) D THEN columna-colu 
mna+l 
330 IF columMa=9 THEN columna=1 
340 LOCATE anticolumnantifila 
350 PRINT OHR$(252+estado(anticolum 
n,antiila)) 
360 LOCATE columna,ila 
370 PRINT CHR$(254+estado(columna, 
ila)) 
380 IF INKEY(9)-O THEN GOSUB 400:RE 
M CAMBIAR PIXEL 
390 WEND 
400 REM RELLENAR/BORRAR PIXEL 
410 PRINT CHR$(7) 
420 estado(columna,ila)=ABS(estado 
(columna.ila)-1) 
430 LOCATE columna(ila 
440 PRINT CHR$(254+estado(columna,f 
ila)) 
450 RETURN 
460 REM ACTUALIZACION DE NUMEROS 
470 abajo fila 
480 valor(abao) 0 
490 FOR cruzar I TO 8 
500 IF estado(cruzar,abao)=1 THEN 
valor(abao)-valor(abao)+(2''(S-cru 
zar)) 
510 NEXT cruzar 
520 LOCATE 12bajo 
530 PRINT USINO"##"va]or(abajo) 
540 LOCATE 18aba]o 
550 PRINT BIN$(valor(abao).8) 
560 RETURN 
57(I REM PRINT CARACTER 
580 SYMBOL 240valor(1),valor(2)va 
Ior(3l.valor(4),valor(5),valor(6),v 
alor(7).valor(8) 
590 LOCATE 5,12 
600 PRINT CHR$(240) 
610 RETURN 

10 REM PROGRAMA II 
20 MODE I 
30 PAPER 2 
40 PEN 3 
50 CLS 
60 SYMBOL 2400I7127.1717,17.31 
,31 
70 SYMBOL 241.0,0,0,0.24,60,60255 
80 SYMBOL 242,0.0.30,12,12,12.1225 
4 
90 SYMBOL 243,127.127, J27127,127,1 
27.28,8 
100 SYMBOL 244,255.255.255,255,33.1 
15,115,33 
110 SYMBOL 245.255.255.255,255,8,15 
6156.8 
120 LOCATE 18,12 
130 PRINT CHR$(240)CHR$(241):CHR$( 
242) 
140 LOCATE 18,13 
150 PRINT CHR$(243);CHR$<244):CHR$( 
245) 
160 WHILE NOT verdadero:WEND 
I0 REM PROGRAMA III 
20 MODE 

30 PAPER 2 
40 PEN 3 
50 CLS 
&O SYMBOL 240,0,127.127,17|7.17,31 
,31 
70 SYMBOL 241,0.0.0,0,24,60,60,255 
80 SYMBOL 24200,30, I 12, 1212,25 
4 
90 SYMBOL 243,127.127.127,127,27.1 
27.288 
100 SYMBOl 244,255,255,255,255,3x, I 
15.11533 
110 SYMBOL 245,255,255255,255.8,15 
6,156,8 
120 smerior$=CHR$(240)+CHR$(?4)+C 
HR$(242) 
130 inerir$=CHR$(243)+CHR$244)+C 
HR$(245) 
140 Iocomotora$=superior$+CHR$(10)+ 
CHR$(8)+CHR$(81+CHR$(8)+inerior$ 
150 LOCATE 18,12 
160 PRINT locomotora$ 
170 WHILE NOT verdadero:WEND 

1(} REM PROGRAMA IV 
20 MODE 0 
30 PAPER 5 
40 CLS 
50 REM CARA 
60 SYMBOL 2403,7,15,31,63,63,63,12 
7 
70 SYMBOL 241192.224240,248,252,2 
52,252254 
80 SYMBOL 242,127,255,255,255,255,1 
27,&3.63 
90 SYMBOL 243.254,255,265,255,255,2 
54,252,252 
100 SYMBOL 244,63,63,63,31,31,31,7, 
3 
110 SYMBOL 245,252,252,252,248,248, 
248,224,192 
120 ila$=CHR$(10)+CHR$(8)+CHR$(8) 
130 Eara$=CHR$(240)+CHR$(241)+fila$ 
+CHR$(242)+CHR$(243)+IIa$+CHR$(244 
)+CHR$(245) 
140 PEN 11 
150 LOCATE 9.12 
160 PRINT cara$ 
170 WHILE INKEY$ .... :WEND 
180 REM 00S 
190 SYMBOL 
200 SYMBOL 247,00.0032,112 
210 ojo$-CHR$(246)+CHR$(247) 
220 PEN 6 
230 LOCATE 9,12 
240 PRINT 
250 WHILE INKEY$ "":WEND 
260 REM NARIZ 
270 SYMBOL 24,000II0,0,0 
280 SYMBOL 247,0,0,0.128,128,0,00 
290 narlz$-CHR$(246)+CHR$(247) 
300 PEN 7 
310 LOCATE 9,13 
320 PRINT narlz$ 
330 WHILE INKEY$="":WEND 
340 REM BOCA 
350 SYMBOL 
360 SYMBOL 
370 boca$=CHR$(248+CHR$(249) 
38O PEN 3 
390 LOCATE 9,14 
400 PRINT boca$ 
10 REM PROGRAMA V 
70 MODE I 
0 F'RINT"TAG DESAC'r]VADO" 
4U 
50 MOVE 0,64 
60 PRINT"TAG ACTIVADO" 
70 TAGOFF 
I0 REM PROGRAMA VI 
20 MODE 0 
30 SYMBOL AFTER 65 
40 LOCATE 1,8 
50 PRINT"ESTO ES MODO O" 
60 LOCATE 1.10 
70 REM TAMA#O NORMAL 
80 PRINT"ABCDE" 
90 SYMBOL 65.96,144144,240,240,144 
,144,0 
I00 SYMBOL 66.224,144,144.24,144,1 
44,224,0 
II0 SYMBOL 67,96,144.128.128128,14 
4,96,0 
120 SYMBOL 68,224,144,144,144,144,1 
44224.0 
130 SYMBOL &9,240.128.128,224,128,1 
28.2400 
140 LOCATE 1,12 
150 REM REDEFINIR IETRAS PERO MANTE 
NIENDO EL INTERVALO 
160 F'RINT"ABCDE" 
170 PRINT 

180 TAG 
190 REM AJUSTAR LOS INTERVALOS 
200 MOVE 0.192 
210 PRINT"A": 
220 MOVE 2(':,192 
230 PRINT"B" 
240 MOVE 40,192 
250 PRINT"C" 
260 MOVE 60,192 
270 F'RINT"D" 
280 MOVE B0.192 
290 PRINT"E" 
300 TAGOFF 
310 WHILE INKEY$ .... :WEND 
320 SYMBOL AFTER 65 

10 REM PROGRAMA VII 
20 MODE 0 
30 BORDER 0 
40 REM MARCO DEL CUADRO 
50 PEN I:PAPER 0 
60 LOCATE I • I 
70 PRINT STRINGS(20,207) 
80 FOR y=2 TO 24 
90 LOCATE I ,y 
100 PRINT CHR$(207) 
110 LOCATE 20,y 
120 PRINT CHR$(207) 
130 NEXT y 
140 LOCATE 1,25 
150 PRINT STRINGS(20,207) 
160 REM CIELO 
170 WINDOW #0,2, 19,2,24 
180 IMK 15, 11 
190 PAPER 5 
2L)O CLS 
210 REM MAN 
220 WINDOW #C),2. 19,12.24 
230 PAPER 6 
240 CLS 
250 REM PI AYA 
260 WINDOW #0.2, 19, 18,24 
270 INK 13.15 
280 PAPER 13 
290 CLS 
300 REM HIERBA 
310 WINDOW #0.2,19.2,24 
320 SYMBOL 24064,32,34, 148.85100, 
60. 126 
330 PEN 12 
340 FOR hierba=l TO 
350 x-INT(RND(1)I17)+2 
360 y-INT (RND(1) 6) +17 
370 LOCATE x, y 
380 PRINT CHR$(240) 
390 NEXT hierba 
400 REM OLAS 
410 SYMBOL 
420 FOR olas I TO 20 
430 PEN 4;PAPER 6 
440 ×-INT(RND(1)15)+2 
450 y INT(RND(1)5)+11 
460 LOCATE x, y 
470 PRINT STRINGS(3,241) 
480 NEXT olas 
49O REM BARCO 
500 SYMBOL 242,2,2. 18,50 114, 127, 12 
7,63 
510 SYMBOL 243,0.0.0,0,3C),255.255,2 
55 
520 SYMBOL 244.4,4.4,4. 15,254,252.2 
48 
530 barco$-CHR$ (242) +CHR$ (243) +CHR$ 
<244) 
540 LOCATE 5, 10 
550 PAPER 15:PEN 3 
560 PRINT barco$ 
570 REM SOL 
580 MOVE 500.300 
590 DEG 
600 FOR ×=0 TO 360 STEP 20 
610 DRAW 50SIN(x)+5OO,50COS(x)+30 
0 
620 MOVE 500,300 
630 NEXT x 
640 FOR x 0 TO 360 STEP 4 
650 MOVE 30SIN(x)+5OO,30COS(x)+3r 
0 
660 DRAW 30SIN(360-x)+50030COS(3 
60-x ) +300 
(=70 NEXT x 
680 80TO 680 
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Los ordenadores son mquinas potentes y precisas, 
pero tienen un grave inconveniente: 
son estpidos, 
incapaces de Ilegar un poco ms all 
de donde se les ordena. 
Para poder firmar la sentencia de muerte 
de los programas clsicos, 
no inteligentes, 
y de/as mquinas que los soportan, 
solo hacen falta dos cosas: 
Una tcnica, la inteligencia artificial 
y un nombre... AMSTRAD especial nfimero 2. 

Seguiremos informando 



MACROCONPIL R 

Los aficionados a la informrtica tenemos el vlclo, sano, 
muy sano, de intentar convertir en forma de programa 
todas las tareas repetitivas con que nos enfrentamos 
en la vida cot]diana. Desde la gesti6n de la biblioteca, 
hasta la contabilidad, pasando por la agenda donde se 
encuentran las direcciones de nuestros amigos, son 
casos t{picos de problemas que ban ido poco a poco 
cayendo dentro de las fauces de nuestro ordenador. 

ste sin embargo, una 
tarea repetitiva y mon6tona, que quiz6s no nos 
hayamos planteado, PROGRAMAR. Y pot 
qu6 no? Por qu6 no dejamos que nuestro or- 
denador programe pot nosotros. ..  
Los aficionados a la secci6n de Anglisis, re- 
cordar6n queen el n. ° 30 de AMSTRAD 
MANAL, ofreciamos un pequeo programa 
encargado de coger una pantalla realizada 
por nosotros mediante un editor, pasando des- 
pus esta pantalla a forma de programa Ba- 
sic, a base de docates y ¢prints. Sin em- 
bargo, la extensi6n del an61isis nos impidi6 dos 
cosas. Hacer un editor de texto verdadera- 
mente amable con el usuario, asi como dar un 
conjunto de opciones de compilaci6n que nos 
permita elegir conforme a los caracteristicas 
de nuestro problema. 

Descripci6n 
del programa 

Una vez que hayamos contestado al modo 
de pantalla, 20,40 u 80 columnas entraremos 
en el editor y comenzamos a editar nuestra 
pantalla, el borde oscuro nos indica que es- 
tamos en forma de texto y el borde claro que 
estamos en forma de dibujo. La diferencia en- 
tre modo te×to y modo dibujo se encuentra en 
queen modo texto, cada vez que pulsamos 
una tecla el cursor escribe y avanza, en mo- 
do dibujo pulsamos una tecla y despu6s con 
la tecla de cursor nos movemos dejando co- 
mo rastro el car6cter seleccionado, coda vez 
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que pulsemos una tecla distinta alas de cur- 
sor, cambiamos el car6cter a imprimir. Los te- 
clas DEL y CLR no producen el efecto desea- 
do, es decir, borrar, si queremos borrar, ha- 
bremos de hacerlo con la barra espaciadora, 
no presenta mayor problema. 
La tecla del punto del teclado alfanum6ri- 
co, cambia el juego, de caracteres que tene- 
mos visualizado en Ja porte inferior de la pan- 
talla. Esta opci6n no funciona desde el modo 
dibujo. Naturalmente, los teclas de funci6n 
contienen los caracteres que se presentan en 
la barra informativa de abajo. 
Una vez que la pantalla est6 finalizada, pul- 
se la tecla RETURN, o ENTER, se producir6 
una precompilaci6n necesaria para la compi- 
laci6n posterior. Despu6s de unos instantes, en- 
trar en el menO de opciones en el que se po- 
dr6 elegir la compilaci6n. 
Las opciones que encontraremos son las si- 
guientes: 
1. Compilaci6n Basic: Pasa el programa a 
Basic. 
2. Compilaci6n mquina: Pasa el progra- 
ma a c6digo mgquina. 
3. Pasa la pantalla a fichero ASCII. 
Las dos 01timas opciones nos Ilevan a dos 
submengs distintos. Pero no os aburrimos mgs, 
de hecho el programa mediante la tecla HELP, 
nos Ileva a unas cuantas pantallas informati- 
vas donde dispondremos en todo momento de 
la explicaci6n con detalle del programa. Na- 
turalmente, stas hart sido diseadas con Ma- 
cr0conpiler. 
Salir del paleolitico, a veces cuesta traba- 
jo, pero no Io dudes, merece la pena pasar 
una tarde tecleando y no tener que realizar 
nunca jams una pantalla de texto pot los me- 
dios convencionales, ganar6s en tiempo yen 
esttica, seguro. 
La explicaci6n del programa se encuentra 
totalmente detalloda dentro del propio pro- 
grama, supone teclear algo ms, pero ahi se 
encuentra la diferencia entre una aplicaci6n 
profesional y otra de puro divertimento. 

/ 
/ 
/ 

,t 
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I0 CLS:MODE 2 
20 DEFTNT 
30 MEMOR 30000 
40 MEMORY HEMOR-I 
50 KEY DEF 6OI:KEY DEF 70,2 
60 DIM Ie(25,82):FOR N=I TO 25:FOR 
NN=I TO 80:LE(NpNN)=32:NEXT:NEXT 
70 GOTO 1660 
80 x-1:y 1 
90 CURSOR 1,1 
100 MAXFI 25:maxco-modo 
110 CLS 
120 GOGUB 590 
130 GOTO 360 
140 subrutinas 
150 'impchar 
160 PRINT tecSl 
170 x=x+1:IF x maxco THEN GOSUB 
270:'baline 
180 RETURN 
190 'mueve cursor 
x=x+(tm=242)-(te=243) 
y-y+(te-240)-(te=241) 
IF x=maxco THEN 80SUB 270:'b 

IF y=max4i THEN y=1 
IF x=O THEN GOSUB 320:'sulin 

200 
210 
220 
aline 
230 
240 
50 IF y=O THEN y=24 
260 RETURN 
270 'baline 
280 
290 y=y+1 
300 IF y-25 THEN y 
310 RETURN 
320 suline 
330 x=l 
340 y-y-1 
350 RETURN 
360 'programa principal txt 
370 BORDER 0 
380 LOCATE 
390 tec$ "":WHILE TEC$="":TEO$=IN 
KEYS:WEND 
400 te-ASC(tec$):IF re-13 THEN 
SUB 750 
410 IF te 2 THEN opc=(opc+l) NOD 13 
:GOSUB 600:GOTO 380 
420 IF te=1 THEN SOSUB 660:GOTO 
80: 
430 IF re-9 THEN 470 
440 IF te>239 AND te<244 THEN 80S 
UB 190:GOTO 380='mueve cursor 
450 LE(Y,X)-TE:GOSUB 150:impchar 
460 GOTO 360:'programa principal 
470 'Programa principal dibujo 
480 BORDER 25 
490 char=32 
500 tec$="":WHILE tec$ "":tc$=IN 
KEYS:WEND 
510 te=ASC(tec$) 
520 IF te ? THEN 360 
530 IF te<=239 OR te>=244 THEN ch 
ar=te:GOTO 500:'programa princlpal 
dibujo 
540 PRINT CHR$<char) 
550 le(y,x) char 
560 GOSUB 190:'move cursor 
570 LOCATE x,y 
580 GOTO 500:'programa principal di 
bujo 
590 REM de4ine teclado 
600 OPCION-126+((OPClIO) MOD 128) 

610 FOR N 0 TO 9 
620 KEY NCHR$(OPCION+N) 
630 NEXT N 
640 GOSUB 670 
650 RETURN 
660 ono (ono+++1) NOD 2:IF ono44= 
0 THEN GOSUB 710:RETURN 
670 LOCATE 1,25:FOR n=O TO ? 
680 PRINT USING "#"n:PRINT CHR$( 
pcion +n)| 
690 NEXT n 

700 RETURN 
710 LOCATE 1,25:FOR n l TO 80 
720 PRINT CHR$<Ie<24pN)) 
730 NEXT n 
740 RETURN 
750 ....... PRECOMPILACION 
760 MODE I 
770 FOR FI-I TO 24 
780 PRINT STRINGS(40,129); 
790 CO=I:WHILE LE(FI,CO)-32 
800 CO-CO+i 
$10 WEND:CHAR=LE(FI,CO):IF CHAR=O T 
HEN CO O:GOTO 900 
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820 POKE(MEMOR),CO:MEMOR=MEMOR+I:PO 
KE(MEMOR),FI 
830 FOR CO CO TO 80 
840 CHAR- LE(FICO):IF CHAR=LE<FI,O 
0+I) THEN 940 
850 MEMOR MEMOR+I:POKE<MEMOR),CHAR 
860 NEXT CO 
870 memor=memor+1 
880 IF CHAR=32 THEN MEMOR MEMOR-3 
890 POKE(MEMOR)O:memor-memor+1 
900 NEXT FI 
910 POKE(MEMOR),O 
920 GOTO 990 
930 ' .... STRING A MEMORIA 
940 IN=CO:COUN-O 
950 WHILE CHAR LE<FI,IN):IN=IN+I:CO 
UN=COUN+I:WEND 
960 IF COUN>5 THEN MEMOR=MEMOR+I:PO 
KE <MEMOR)2:MEMOR MEMOR+I:POKE(MEM 
OR),COUN:CO=IN-I 
970 GOTO 850 
980 ' ......... OPCIONES DE COMPILA 
CION 
990 CLS 
1000 LOCATE 17, 3:PRINT STRINGS( 
8 35) 
I010 LOCALE 17, 4:PRINT "#"+SRING 
$( 36, 32)+"#" 
1020 LOCATE 17, 5:PRINT "# OPCIO 
NES DE COMPILACION"+STRING$< iO 32 
1030 LOCATE 17, b:PRINT "#"+STRING 
$( 36, 32)+"#" 
1040 LOCATE 17, 7:PRINT STRINgs( 3 
8, 35) 
1050 LOCATE 17, 8PRINT "#"+STRING 
$( 36, 32)+"#" 
1060 LOCATE 17, 9:PRINT "#"+STRING 
$( 36 32)+"#" 
1070 LOCATE 17, IO:PRINT "# B.- 
Compilation Basic."+STRING$( II, 32 
)+,,#- 1080 LOCATE 17, It:PRINT "#"+STRIN 
G$( 36, 32)+"#" 
1090 LOCATE 17, 12:PRINT "# M.- 
Compilation Maquina."+STRING$( 9, 3 
2)+"#" 
1100 LOCATE 17, 13:PRINT "#"+STRIN 
G$( 36, 32)+"#" 
1110 LOCATE 17 14:PRINT "# A.- 
Compilation ichero ASCII #" 
1120 LOCATE 17, 15:PRINT ""+STRIN 
G$( 36 32)+"#" 
1130 LOCATE 17 16:PRINT "# R.- 
Retorno al menu ."+STRINGS( 9, 3 
2)+"" 
1140 LOCATE 17 17:PRINT STRINGS( 
38, 35) 
1150 OPC$ "":WHILE OPC$ "":OPC$ INK 
EY$:WEND 
1160 IF OPC$="B" OR OPO$-"B" THEN 
1220 
1170 IF opc$-"A" OR opc$-"a" THEN 2 
870 
1180 IF opc$-"M" OR opc$-"m" THEN 3 
50O 
1190 IF opts "R" OR opc$-"r" THEN 7 
0 
1200 GOTO 1150 
1210 GOTO 1220 
1220 ..... B A S I C 
1230 CLS 
1240 MODE 1:INK 3725 
1250 MEMOR-30000: 
120 INPUT "NOMBRE DEL PROGRAMA";NA 
ME$ 
1270 IF LEN(NAME$)>8 THEN 80T0 1260 
1280 INPUT "PRIMERA LINEA DEL PROGR 
AMA";NUM 
1290 IF NUN>65000 THEN 1280 
1300 INPUT "INCREMENTO ENTRE LINEAS 
":INCR 
1310 CLS 
1320 PEN 3 
1330 LOCATE 4,9:PRINT STRING$(3321 
1340 LOCATE 4 IO:PRINT CHR$(211)+" 
INSERTE DISCO 0 CINTA DESTINO "+OH 
R$(209) 
1350 LOCATE 4 11:PRINT OHR$(211)+" 
Y PULSE UNA TECLA "+OH 
R$(209) 
1360 LOCATE 4,12PRINT STRINGS(33,2 
08) l 
1370 WHILE INKEY$<>"":WErD:WHILE IN 
KEYS-""  WEND 

1380 MODE 2:PEN I 
1390 CLS 
1400 OPENOUT name$+".bas" 
1410 PRINT #9,STR$(num)+" ......... 
-PANTALLA "+nameS 
1420 PRINT STR$(nu)+" ' ......... PA 
NTALLA "+nameS 
1430 num-num+incr 
1440 PRINT #9STR$(num)+" CLS" 
1450 PRINT STR$(nu)+" CLS" 
1460 num=num+incr=lin$=STR$(num)+" 
locate " 
1470 char=PEEK(memor):lin$=lin$+STR 
$(char)+"" 
1480 memor=memor+1:char PEEK(memor) 
:Sins lin$+STR$(char)+":print " +OH 
R$(34) 
1490 memor memor+1:CHAR PEEK(MEMOR) 
1500 WHILE char<>O 
1510 IF char=2 THEN CHAR-PEEK(MENOR 
+I):MEMOR-MEMOR+2:GOTO 1590 
1520 lin$=lin$+CHR$(char) 
1530 memor-memor+I:CHAR-PEEK(MEMOR) 
1540 WEND 
1550 IF RIGHT$(lin$2)="+"+CHR$(34) 
THEN lin$=LEFT$(lin$LEN(lin$)-2) 
ELsE lin$=lin$+CHR$(34) 
1560 PRINT #9lin$ 
1570 PRINT fins 
1580 memor memor+l:IF PEEK(memor) 0 
THEN END ELSE GOTO 1460 
1590 ' ..... string basic 
1600 ............................. 
1610 IF RIGHTS(finS,I) CHR$(34) THE 
N Iin$=LEFT$<lin$,LEN(Iin$)-ll:GOTO 
1640 
1620 IF RIGHT$(Iin$LEN(Iin$)-I) ") 
" THEN lin$-lin$+"+"+CHR$(34):GOTO 
1640 
1630 IF RIGHT$<lin$,LEN(Iin$)-I)<>C 
HR$(34) AND RIGHT$(Iin$LEN(IIn$)-I 
)<>")" THEN lin$=lin$+CHR$(34)+"+" 
1640 lin$=lin$+"strng$("+STR$(CHAR 
)+""+STR$(PEEK(emor))+")+'+CHR$(3 
1650 GOTO 1530 
1660 ' ......... PANTALLA menul 
I70 CLS 
I80 LOCATE 20, 4:PRINT STRINGS( 3 
I 35) 
1690 LOCATE 20 5:PRINT "#"+STRING 
$( 29 32)+"#" 
1700 LOCATE 20, 6:F'RINT "#"+STRING 
$( 9 32)+"M E N U I"+STRING$( 11, 
32)+"#" 
1710 LOCATE 20, 7:F'RINT "#"+STRING 
$( 29 95)+"#" 
1720 LOCATE 20, 8:PRINT "#"+STRING 
$( 29 2)+"#" 
1730 LOCATE 20 9:PRINT "# 1.-Cr 
ear pantalla."+STRING$( 8. 32)+"#" 1740 LOCATE 20, IO:PRINT 
G$( 29, 32)÷"#" 
1750 LOCATE 20 It:PRINT "#'+STRIN 
G$( 29 32)+"#" 
1760 LOCATE 20 12:PRINT "#"+STRIN 
G$( 29, 32)+"#" 
1770 LOCATE 20, 13:PRINT '#"+STRIN 
G$( 29, 32)+"#" 
1780 LOCATE 20 14:PRINT "#"+STRIN 
G$( 29, 32)+"#" 
1790 LOCATE 20, 15:PRINT "# 2.-A 
yuda."+STRING$( 17 32)+"#" 
1800 LOCATE 20, 16:PRINT "#"STRIN 
G$( 29 32)+"#" 
1810 LOCATE 20, 17:PRINT STRINGS( 
31 35) 
1820 op$-INKEY$:WHILE op$ "":opS-IN 
KEYS:WEND 
1830 ON VAL(op$) GOTO 3450,1860 
1840 GOTO 1820 
1850 ' ......... PANTALLA HELPI 
1860 menu=1 
1870 CLS 
1880 LOCATE 53 I:PRINT "PAGINA D 
E ASISTENCIA I 
1890 LOCATE 21, 4:PRINT "MANUAL DE 
ASISTENCIA" 
1900 LOCATE 17 5:F'RINT STRINGS( 2 
6 61) 
1910 LOCATE I 8:PRINT ". Si aun n 
o ha hecho copia de seguridad de su 
programahagala pugs dis" 
1920 LOCATE I 9:PRINT "pone e co 
digo maquina y podria perdero, ant 
e un CRASH eventual. " 
1930 LOCATE 3 16:PRINT OPCION ED 
ITAR PANTALLA: Desde esta opclon pc 
dra crear cualquier pantalla, " 
1940 LOCATE I 17:PRINT "para su c 
ompilacion posterior come BASIC o c 
edigo maguS na. " 
1950 LOCATE I 19=PRINT STRINGS( 8 
O, 95) 
1960 LOCATE 19, 21:PRINT "Pagina s 
iguiente pulse: S" 
1970 LOCATE 19, 23:PRINT "Retornar 
"+STRINGS( 9, 32)+"pulse: R" 
1980 LOCATE 1, 24:PRINT STRINGS( 8 
O, 95) 
1990 optS=" ":WHILE optS=" ":optS=INK 
EY$:WEND: IF opc$-'a" OR opc$-"A" TH 
EN 1850 
2000 IF opc$-"R" OR opc$="r" THEN G 
OTO 2860 
2010 .......... PANTALLA HELP2 
2020 CLS 
2030 LOCATE 54 I:PRINT "PAGINA DE 
ASISTENCIA 2 " 
2040 LOCATE 3 3:PRINT "CREAR PANT 
ALLA: " 2050 LOCATE 2 4:PRINT STRINGS( 
, 45) 
2060 LOCATE 6 6:PRINF "I) MoDeS D 
E PANTALLA: " 
2070 LOCATE 28, 8:PRINT "1.-Node d 
e 40 clumnas." 
2080 LOCATE 28, 9:PRINT "2.-Mode d 
e 80 columnas. " 
2090 LOCATE 9 11:PRINT "Las panta 
llas deberan set cargadas y utiliza 
das en el mismo mode en que" 
2100 LOCATE I 12:PRINT "ueron cr 
eadas. Para no estropear las ventan 
as creadas MACROCOMPILER no gestion 
a" 
2110 LOCATE I 13:F'RINT "esto deb 
era incluirlo en el programa result 
ante, en el case de variation de mo 
2120 LOCATE I 14:PRINT "do." 
2130 LOCATE 28 15:PRINT "["+STRIN 
G$( 16 45)+"]" 
2140 LOCATE 5 16:PRINT "IS) MODES 
DE EDICION: " 
2150 LOCATE I0 17:PRINT "Mode rex 
to: Se imprime el contenido de la 
ecla puisada y el cursor ava" 
2160 LOCATE I, 18:PRINT "nza un ca 
ratter. Ideal para escribir te×tos. 
Inclu.ye salto de linea." 
2170 LOCATE 10, 19:PRINT "Mode dib 
ue:E1 cursor no avanza al pulsar u 
na tecla, pero sl es memori-" 
2180 LOCATE 1 20:PRINT "zado el u 
Itimo caracter pulsado. A] mover el 
cursor en cualguiera de las cuatro 
2190 LOCATE I 21:PRINT STRINGS( 8 
O, 95) 
2200 LOCATE 22 22:PRINT "PARA SIG 
UIENTE PULSE: S" 
2210 LOCATE 22 23:PRINT "PARA ANT 
ERIOR PULSE: A" 
2220 LOCATE 22, 24:PRINT "PARA RET 
ORNAR PULSE.' R" 
2230 opc$ .... :WHILE opc$="":opc$ INK 
EY$:WEND:IF opc$-"R" OR opc$-"r" TH 
EN 280 
2240 IF opc$-"A" OR opc$-"a" THEN 
OTO 1850 
2250 .......... PANTALLA HELP3 
2260 CLS 
2270 LOCATE 50 1:PRINT "PAGINA B 
E ASISTENC IA 3" 
2280 LOCATE I, 3:PRINT "direcclone 
s posibles se repite este caracter 
• Ideal para recuadrar  dlbu3ar. " 
2290 LOCATE I 4:PRINT "A esta opt 
ion se accede pulsando la tecla TAB 
• Se vuelve a la stuacion tete" 
2300 LOCATE I, 5:PRINT "volviendo 
a pulsar esta misma tecla." 
2310 LOCATE 24 7:PRINT "["+STRING 
$( 18 45)+"]" 
2320 LOCATE 5, 9:PRINT "Ill) TECLA 
S DEFINIDAS: " 
2330 LOCATE I0 II:PRINT "El keypa 
rd teclado de uncion esta cargad 
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2340 LOCATE I, i2:PRINT "lizados e 
n la parte inferior de la pantalla. 
Para cambiar este juege de caracte 
2350 LOCATE 1, 13:PRINT "res basra 
con pulsar el . del teclado de fun 
cion. El cambio de caracteres es in 
2350 LOCATE I, 14:PRINT "accesible 
desde el mode dibujo." 
2370 LOCATE 24 16:PRINT "["+STRIN 
G$( 18 45)+"]" 
2380 LOCATE 7 18:PRINT "IV) FIN D 
8 EDICION:" 
2390 LOCATE 11, 20:PRINT "AI final 
izar la edition de la pantalla puls 
e la tecla ENTER, e RETURN," 
2400 LOCATE I 21:PRINT STRINGS( 8 
O, 95) 
2410 LOCATE 21, 22:PRINT "PARA SEG 
UIR PULSE: S" 
2420 LOCATE 21 23:PRINT "PARA ANT 
ERIOR PULSE: A" 
2430 LOCATE 21, 24:PRINT "PARA RET 
ORNO PULSE: 
2440 OPC$ "":WHILE OPC$ "":OPC$=INK 
EY$:WEND 
2450 IF OPC$ "R"OR OPC$ "r" THEN 28 
50 
2460 IF opc$ "A" OR opts "a" THEN 2 
010 
2470 .......... PANTALLA HELP4 
2480 CLS 
2490 LOCATE 49, I:PRINT "PAGINA DE 
ASISTENCIA 4" 
2500 LOCATE 5, 4:PRINT "COMPILACIO 
2510 LOCATE 107 7:PRINT "Desde est 
a option dimpone de tres {ormas 
de compilation" 
2520 LOCATE 24, tO:PRINT "BASIC" 
2530 (OCATE 24 12:PRINT "CODIGO M 
AQUINA" 
2540 LOCATE 24, 14:PRINT "FICHERO 
ASCII" 
2550 LOCATE 11 Ib:PRINT "La tempi 
lacion Basic le pide el nombre que 
le data al pregra-" 
2560 LOCATE 1 17:PRINT "ma, lap 
rimera linea del programa y el vale 
2570 LOATE I, IS:PRINT "lineas." 
2580 LOCATE 11, 20:PRINT "La tempi 
lacion en fchero ASCII le dara un 
2590 LOCATE 1, 21:PRINT STRINGS( S 
O 95) 
2600 IOCATE 24 22:PRINT "PARA ANT 
ERIOR PULSE: A" 
2510 LOCATE 24 23:PRINT "PARA 
UIENTE PULSE: S" 
2520 LOCATE 24, 24:PRINT "PARA RET 
ORNO PULSE: R" 
2530 opc$="":WHILE opts "":optS=INK 
EY$:WEND 
2540 IF opc$="R" OR opc$="r" HN 2 
860 
2550 IF opcS-"A" OR opc$="a" THEN 2 
250 
2550 .......... PANTALLA men3 
2670 CLS 
2680 LOCATE 49, I:PRINT "PAGINA DE 
ASISTENOIA 5" 
2590 LOCATE 8, 5:PRINT "COMPILACIO 
N MAQUINA:" 
2700 LOCATE 12, 7:PRINT "Para grab 
ar el programa qua lee su pantalla 
elija la opclon" 
2710 LOCATE 5 8:PRINT "grabar cod 
igo maquina." 
2720 LOCATE 12 9:PRINT "Para grab 
ar una pantalla elija option graba 
r pantalla." 
2730 LOCATE 12, IO:PRINT "Despues 
para utilizarlo en su prograa incl 
uya las slguien-" 
2740 LOCATE 5, 12:PRINT "tes llnea 
2750 LOCAE 15, 13:PRINT "load hem 
bre del cmdirl 
2760 LOCATE 15, 14:PRINT "load hem 
bre de la pantalla,dir2 
2770 LOCATE 12, lb:PRINT "una vz 
heche esto podra imprimir una panta 
lla haciendo sm-" 

2780 LOCATE 5 17:PRINT "plemente: 
2790 LOCATE 15 18:PRINT "call dir 
2800 LOCATE 13, 20:F'RINT "Naturalm 
2810 LOCATE 5 21:PRINT "raun pro 
grama CIM." 
2820 LOCATE I, 22:PRINT STRINGS( 8 
O 95) 
280 LOCATE 18, 23:PRINT "PARA RET 
ORNAR PULSE UNA TECLA" 
2840 WHILE INKEY$-"":WEND:GOTO 1550 
2850 ' retorno o vuelta menu? 
2860 IF menu I THEN 1660 ELSE menu = 
O:RETURN 
2870  compilation fichero ascii 
2880 CLS 
2890 MODE I 
2900 L0CATE I25:INPUT "NOMBRE DEL 
FICHERO ";fich$ 
2910 IF LEN({ich$)>8 THEN PRINT CHR 
$(7):PRINT "eCHO CARACTERES MAXIMO 
":GOTO 2900 
2920 INPUT "NOMBRE DEL PROGRAMA CAR 
GADOR "NAME$ 
2930 IF LEN(NAME$)}8 THEN PRINT CHR 
$(7):PRINT "OCHO CARACTERES MAXIMO 
":GOTO 2920 
2940 INPUT "NUMERO DE LA PRIMERA LI 
NEA DEL PROGRAMA CARGADOR"PLIN 
2950 INPUT "INCREMETO DE  INEA":INC 
2950 IF INC=O THEN INC 10 
2970 CLS 
2980 PEN 3 
2990 LOCATE 49:PRINT STRING$(3321 
0) 
3000 LOCATE 4 ,tO:PRINT CHR$(211)+" 
INSERTE DISCO 0 CINTA DESTINe 
3010 LOCATE 4 ,It:PRINT CHR$(211)+" 
Y PULSE UNA TECLA "+CH 
R$(209) 
3020 LOCATE 412:PRINT STRING$(332 
08); 
3030 WHII E INKEY$<>"":WEND:WHILE IN 
KEY$="":WEND 
3040 MODE 2:PEN I 
3050 CLS 
3050 OPENOUT FICH$+".PAN" 
3070 MODE O:LOCATE fOlIO:PRINT .... E 
SPERE 
3080 FOR FI l TO 2 
3090 FOR C0=I TO MODO-I 
3100 WRITE #9,CHR$(LE(FICO)) 
3110 NEXT CO 
3120 NEXT FI 
3130 CLOSEOUT 
3140 CLS:MODE 2 
3150 LOCATE 1,24 
3160 OPENOUT NAME$+".BAS" 
3170 LIN$=STR$(PLIN)+" REM PROGRAMA 
CARSADOR" 
3180 PRINT LIN$ 
3190 PRINT #9,LIN$ 
3200 PLIN-PLIN+INC 
3210 LIN$=STR$(plin)+" cls" 
3220 PRINT #9,1ins 
3230 PRINT lin$ 
3240 plin=plin+inc 
3250 LIN$-STR$(PLIN)+" OPENIN "+CHR 
$(34)+FICH$+".PAN"+CHR$(34) 
3260 PRINT LIN$ 
3270 PRINT #9LIN$ 
3280 PLIN=PLIN+INC 
3290 LIN$ STRS(PLIN)+" WHILE NOT EO 
3300 PRINT LIN$ 
3310 PRINT #9,LIN$ 
3320 PLIN PLIN+INC 
3330 LIN$ STR$(PLIN)+" INPUT #9"+ C 
HR$(44)+"LETRA$" 
3340 PRINT LIN$ 

3350 PRINT #9IIN$ 
3350 PLIN PLIN+INC 
3370 LIN$-STR$(PLIN)+" PRINT LETRA$ 
3380 PLIN-PLIN+INC 
3390 LIN$ STR$(PLIN)+" WEND" 
3400 PRINT LIN$ 
3410 PRINT #9,LIN$ 
3420 CLOSEOUT 
3430 PRINT CHR$(7) 
3440 OTO 70 
3450 CLS:MODE 2 

3450 lOCATE I24:INPUT "MODO DE PAN 
TALLA ";M 
3470 IF M>3 OR M<I THEN PRINT " I o 
2":COTe 3450 
3480 MODE m:mod 21-(m ),70-(m 
3490 GOTO 80 
3500 • ......... PAN(ALLA MENUMAQ 
3510 CLS:MODE 2 
3520 LOCATE 18 6:PRINT STRINGS( 4 
3 35) 
3530 LOCATE 18, 7:PRINT "#"+STRING 
$( 41 32)+"#" 
3540 LOCATE 18, 8:PRINT "#"+STRING 
$( 41, 32)+"#" 
3550 LOCATE 18, 9:PRINT "# I.-S 
ALVAR PANTALLA EN BINARIO"+STRING$( 
8, 32)+"#" 
3560 LOCATE 18, tO:PRINT "#"+STRIN 
G$( 41, 32)+"#" 
3570 LOCATE 18 It:PRINT "# 2.- 
SALVAR CARGADOR MAQUINA"+STRING$( 1 
1, 32)+"#" 
3580 LOCATE 18 12:PRINT "#"+STRIN 
S$( 41 32)+"#" 
3590 LOCATE 18, 13:F'RINT "# 3-- 
REGRESAR MENU OPCIONES"+STPNG$( 12 
 32)+"#" 
3500 LOCATE 18 14:PRINT "#"+STRIN 
G$( 41, 32}+"#" 
3510 LOCATE 18 15:PRINT "#"+STRIN 
G$( 41, 32)+"#" 
320 LOCATE 18 15:PRINT STRINGS( 
43, 35) 
3630 OPC$="':WHILE OPC$-"":OPC$ INK 
EYS:WEND 
3540 ON VAL(OPC$) GOTO 3560,37209 
80 
3550 GOTO 3630 
3660 CLS 
3&70 MODE 
680 INPUT "NOMBRE DE LA PANTALLA P 
ARA ARCHIVAR EN 81NARIO"!NAME$ 
3590 IF LEN(NAME$)>8 THEN PRINT CHR 
$<7):PRINT " eCHO CARACTERES MAXIMO 
:COTe 10020 
3700 SAVE NAME$+".BIN"B30000,MEMO 
R+2-30000 
3710 GOTO 3500 
3720 CLS:INPUT "NOMBRE DEL FICHERO 
C/M"NAME$ 
3730 IF EN(NAME$)>S THEN 3720 
3740 
&75,&BBC1,&F1,&E1,&O3&OA&FE,&O0 
,&28&Og,&FE&OT,&28&OC,&CD,5A&B 
DC,&O3&OA,&OO&CD,&5A&BB&I5&28 
DE&IS&F7 
3750 FOR N=I TO 54:READ A:POKE 999 
9+N,A:NEXT 
3760 SAVE NAM$+".BIN",B,40000,56 
3770 GOTO 3500 
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Esta semana en ANALI$1$ as presentamos un sencillo programa con el tftulo de 
VERBO$ REGULARE$. 

Coma su nombre indica, 
consiste en que una vez introducido un verbo 
regular (que se ajuste a los modelos de las dis- 
tintas conjunciones), as escribe en pantalla los 
tiempos de presente, pret6rito y futuro imper- 
fecto, en sus respectivas personas. 
El desglose de las lineas es el siguiente: 
10-50 REMs que informan del titulo del 
programa, etc. 
60 REM que indica la zona del programa 
donde se fijan las terminaciones del presente 
y del pret6rito. 
70 Ciclo de lectura de las mismas. Aima- 
cena en los distintos elementos de la matriz - 
"pS(n)"- los datos contenidos en la primera 
instrucci6n DATA. En cada iteraci6n se incre- 
menta el subindice de la variable de control. 
81) DATA que contiene las terminaciones 
del presente y pr6terito. 

90 REM que informa de la parte del pro- 
grama donde se determinan las del futuro. 
! Og Ciclo igual que el anterior pero para 
el futuro. 
110 DATA con las terminaciones del futu- 
ro. 
12g REM que indica el comienzo, con la 
introducci6n y anlisis del verbo. 
130 Limpia la pantalla. 
140 Pregunta el verbo a conjugar y le asig- 
na a la variable <verboS>>. 
1 $0 Con el comando UPPERS se toma el 
contenido de <<verboS>> y se transforman todos 
sus caracteres en letras mayOsculas. 
160 Nos calcula con el comando LEN la 
Iongitud de la cadena literal introducida en 
verboS y asigna este valor a la variable nu- 
m6rica <longitud>. 
i 70 La variable raizS cage un literal for- 
mado par un nOmero de caracteres igual a 
dongitud-2 tornados a partir de la izquierda 
de <verbosS. 
180 <terminaci6nS contiene 2 caracteres 
desde la derecha de verboS. 

20 REM MICCROHOSSY AMBTRAO 
30 REM VERBOS REGULARES 
40 REM g BY WILLIE 
Tn 

200 REM FORMACION PRSONAB VER 
BALES 
210 IF termlnacon$ "AR" THEN 
aux$="A":pet$-"ABA" ELSE aux$ 
220 LOCATE I,:PRINT "PRESENTE 
",'PRETERITO","FUTURO" 
230 FOR n=I TO 
240 REM PRESENTE 
250 IF n-1 THEN medlo$ "' ELSE 
medo$ aux$ 
2bO IF n-¢ AND L rminacion$="! 
R' THEN medlo$ 
270 IF n 5 AND terminacion$-" 
R" THEN medio$="" 
2BO presente$iraI2$+medlo$÷p$ 
n) 
290 REM PRETERITO 
300 IF n<>i THEN preterlto$-ra 
iz$+pretS+p$(n) ELSE preterlto 
$=ralz$+pret$ 
310 REM FUTURO 

190 Se especifica que si la variable 
terminaci6nS es distinta de AR, <ER>, <<1R 
la ejecuci6n del programa retorna a la linea 
130. 
20g REM que informa del comienzo de la 
formaci6n de las personas verbales. 
211) Si terminaci6nS> es igual a AR> se 
definen las variables aux$ coma <A> y 
pretS coma ABA. En caso contrario toman 
el valor E> e <IA respectivamente. 
220 Se escribe en pantalla los textos: @RE- 
SENTE, <PRETERITO, FUTURO. 
23g Comienza un ciclo FOR... NEXT cuya 
variable de control es <n. 
240 REM que indica el comienzo de la 
construcci6n del presente. 
250 Si <n> es igual a 1 se define la varia- 
ble <medioS coma .... en caso contrario to- 
ma el valor de aux$. 
260 Si n> es 4 y terminaci6nS =<IR>> (ter- 
cera conjugaci6n), se asigna el valor 1 a la 
variable medioS. 
70 Si las variables <n y terminaci6n$ 
son 4 e <<IR respectivamente, medio$> ad- 
quiere el valor .... . 
280 Se define presenteS> coma la suma 
entre las cadenas <raiz$>, medios y pS(n). 
20 REM que nos informa del comienzo de 
la formaci6n gel pret6rito. 
Og Si <n es distinta de 1 se define pre- 
t6rito> coma raiz,>+pretS>+pS(n). Si es 
igual toma el valor de la suma de <raizS y 
<pret$. 
310 REM que nos indica el comienzo del 
futuro. 
30 futurosS> se define coma 
verboS + <fS (n)>. 
330 Se escribe en pantalla las distintas so- 
luciones a las variables <presenteS, 
pret6ritosS y :futuroS. 
340 Acaba el bucle FOR... NEXT. 
350 La ejecuci6n del programa se detie- 
ne hasta pulsar una teda. AI hacerlo, salta a 
la I[nea 130. 
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Ya hab[as peleado en rail batallas por justas 
causas salvando a hellas doncellas, luchado al 
lado del dbil contra el cruel y d.spota tirano, 
pero no pod[as imaginar cu6l iba a ser tu pr6xima 
cruzada: deb[as pelear contra el satnico 
Rasputin, para conquistar la Joya de los $iete 
Planetas, fuente de su inmenso y rnalfico poder. 

,a Joya ha sido 
protegida por Rasputin mediante 
ocho conjuros en el etgreo mundo 
atemporal de los Siete Planetas. 
En esta crucial batalla cuentas con 
tu espada y escudo m6gicos, pero 
habr6s de administrar bien sus pode- 
res, puesto que 6stos disminuir6n a 
medida que los utilices. 
Afortunadamente podrs reponer 
la m6gica fuerza de tus armas en- 
contrando las piedras con la marco 
de Rasputin, y subi6ndote a elias po- 
dr6s absorber su poder. 
Las piedras est6n distribuidas por 
los estancias situadas en las dimen- 
siones en que Rasputin a Ilevado a 
cabo hechizos para proteger la joya; 
para entrar en los estancias deber6s 
pelear con arrojo contra la guardia 
del hechicero. 

Of" 

Pero los problemas no han hecho 
m6s que empezar, ya dentro de la 
sala tienes que recorrer estrechos pa- 
sillos con sumo cuidado para no caer 
en el vacio, pues esto minar6 tu fuer- 
za vital, produci6ndote la muerte si 
6sta se extingue. 
Coda vez que absorbas el poder 
de las piedras de una dimensi6n, ve- 
r6s la c61era de Rasputin convertida 
en una abominable criatura; si la 

destruyes se transformara en una 
piedra-hechizo que el Seor de la 
Luz te da como ayuda en tu lucha. 
AI entrar en contacto con estas pie- 
dras, tu alma podr6 recargarse de 
fuerza vital para continuar en tu mio 
si6n. 
Pero la m6s importante ayuda de 
este noble y gran seor, es el encan- 
tamiento de <Los Ojos del Cielo, que 
te protegern de Rasputin y te per- 
mitirn el acceso a cajas m6gicas que 
neutralizan los ocho conjuros de 
te. Mas habr6s de tener en cuenta 
que los poderes de tu extraordinario 
amigo, s61o te podr6n proteger en 
coso de que el color de la dimensi6n 
en que te encuentres est6 en armo- 
nia con el del hechizo que debas des- 
truir. 
Esta mistica epopeya ha sido dise- 
ada con unos gr6ficos realmente 
agradables a la vista y, adem6s, se 
ha Iogrado plasmar muy bien el et6- 
reo entorno donde se producirn 



nuestras andanzas. El colorido es 
acertado y tambin importante en la 
trama de la acci6n. 
Lo que no est6 muy bien Iogrado 
es el movimiento de nuestro valero- 
so cruzado, que es un poco lento en 
la batalla, quit6ndole vivacidad y 
emoci6n al juego. Su manejo entre 
los estrechos pasillos de las salas de 
los hechizos, es un poco dificil, y ha- 
r6 que caigamos en el vacio m6s ve- 
ces de las recomendable.s para nueso 
tra salud. 
En la pantalla tenemos los indica- 
dores de nuestra fuerza vital, de 
nuestras poderosas armas y el color 
del hechizo que hay en la sala don- 
de nos encontramos. 
Total que estamos ante un juego 
con el que pasaremos buenos ratos, 
yen el que s61o echaremos en falta 
una mayor agilidad en la acci6n pa- 
ra acrecentar nuestro interns. 
Creado por Firebird. 
Distribuido por: Serma. 
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I A 

Nuestro hroe, Discman (el hombre del disco), ha 
sido aprisionado en la central de energla del 
planeta Dartsma. Hay una serie infinita de 
habitaciones disefiadas para atesorar los 
generadores de energla que a.provisionan al 
planeta del combustible necesano para mantener 
prisionera su vol6til atm6sfera. 

as habitaciones 
est6n dispue-tas en forma de labe- 
rinto. 
TO, naturalmente, controlas a Disc- 
man, con el teclado o el joystick, y 
tu tarea es trasladar las barras de 
energia flaseantm a la parte supe- 
rior de la pantalla. 
Por supuesto que tienes enemigos 
que tratar6n de destruirte; nada me- 
nas que los fantasmas de los prisio- 
neros asesinados por los crueles ha- 
bitantes del planeta, que, para tener 
la opci6n de seguir semivivas, deben 
acabar contigo y absorber tu ener- 
gia vital. 

VARIABLES 
PRINCIPALES 

m() Mapo de pantalla 
a() Coordenada x de los fan- 
tasmas 
b() Coordenada y de los fan- 
tasmas 
dr(] Direcci6n de los fantas- 
rags 
nS Nombre del poseedor de 
la m6xima puntuaci6n 
li Vidas 
gk N0mero de fantasmas 
muedos 
Nmero de barras de 
energia transferidas 
screen Ngmero de pantalla 
x, y Coordenadas de Discman 
sc Score 
hi M6xima puntuaci6n 
0irecci6n de los bloques 
dp Direcci6n de Discman 
in NOmero aleatorio 
chO/0 Car6cter en pantalla 
du Flag 
1, p2 Coordenadas de los blo- 
ques _ 

10 REM Dscman's Revenge 
20 REM pot D.L.Lau 
30 REM(c) Amstrad Semanal 
40 SYMBOL AFTER 33 
50 SYMBOL 38661538660.153,B6,60 
:SYMBOL 145.0.2424242424,2424 
60 SYMBOL 35,255,129129 129.129,12 
9,129255 
70 SYMBOL 64,24,60,126,90,126,2552 
55213:SYMBOL 9162,254247,31,312 
55,126.62SYMBOL 93,62127.29,248 
248.255,12b62 
80 SYMBOL 1230002.1[1325522o2 
55,12b,2:SYMBOL 125,b2126255,223 
90 SYMBOL 169255129129129129,1 
29, I29255:SYMBO[ 170,255242424 
2424.24,255:SYMBOL 171171,137,48 
0,22161.132,55 
I00 DEFINT a-z 
I0 ENV I.IO0.25:ENT 1,100,-2,4:FN 
V 2,50.6.3:ENT 2.50s-22:ENT 
120 ENT 4239-2, IO:ENV 4234,4:EN 
V 5,3022:ENV 
130 DIM 
2024) 
140 n$ "AMSTRAD":GOTO 1530 
150 REM  iniclallzar 
160 FOR f 1 TO 25:LOCATE 1,25:PRINT 
CHR$(IO):SOUND If7.1,SINE×T: HOD 
E O:li=3:gk 
170 FOR #-I TO 20:FOR g=4 TO 23:m(# 
g O:NEXT:NEXT 
180 REM *I coloca pntalla 
190 ON creen GOSUB 2570, 2760. 920, 
3080. 3250 
200 FOR { 3 TO 17 STEP 2m({.3) 4:N 
EXT 
210 GOSUB 22:GOTO 280 
220 LOCATE I,I:F'N IO:PR[NT STRINGS 
(20CHR$(143)):LOCATE I2:F'RINT STR 
ING$(20CHR$(143)):L.OCATE I:F'R[NT 
STRING$20CHR$(43)) 
230 PRINT CHR$(22)+CHR$(1):LOCATE i 
PEN 9:PRINT STRING$(20CHR$(169) 
):LOCATE 1,2:PRINT STRING$(20CHR$( 
170)) 
240 FOR  ! TO 20 :LOCATE f,'PRINT 
HR$(169)NEXT 
250 PRINT CHR$(22)+CIIR$(O):FOR 
TO IB STEP 2:PEN #:LOCATE 3:PRINT 
CHR$(42):NEXT 
260 RETURN 
270 REM *** mprme pantalla 
280 PRINT CHR$(22)+CHR$(1) 
290 FOR f-I TO 20:FOR g=4 TO 23:IF 
m,q) 2 THEN PEN 2:LOCATE 
T CHR$(143)'PEN 5:LOCATE ,g:PRINT 
CHR$(233):OTO 310 
300 IF m(g) 1 THEN PEN I:LOCATE 
.g:PRINT CHR$(38):PEN &LOCATE g: 
PRINT CHR$ (145) 
310 NEXT:NEXT 
320 REM ***$**** comienza 
30 PRINT CHR$(22)+CHR$(O)'do-I:LOC 
ATE IO,23:PEN 14:PRINT CHR$(231):m( 
0,23 3:oh% 0 
340 lOCATE 3I:PEN 2:PRINT"FANTASMA 
S MUERTOS" 
350 PEN 12:LOCATE 1,25:PBINT"HI":LO 
CATE 9,25:PRINT "SC":LQCATE 
N I:PRNT STRINB$(20,"-") 
360 LOCATE 425:PEN 3:PRINT hi:LOCA 
TE 1225:PRINT so:LOCATE 2,2 
370 pU=O:d-I:PEN 12:LOCATE 1725:P 
RINT STRING$(]i"]") 
380 (l)=2:b(1)-lO:a(2) 19:b(2)-I0: 
dr(1)-2:dr2=4 
390 x IO:y=22:LOEATE x,y:PEN IPRIN 
T"{":LOCATE a(1),b(1):PN 8:PRINT" 
":LOCATE a(2b(2):PEN 8PRINT"" 
400 IF INKEY(36)=O OR JOY(O) AND 
THEN OOSLIB 
410 ON pu GOSUB 1730850960,2080 



STRUCTURA 
, EL PROGR  ,MA 

40-170 Inicializaci6n. 
180-260 Lectura del mapa de pan- 
talla. 
270-310 Construcci6n de la panta- 
Ila. 
320-560 Bude principol. 
570-890 Movimiento del Discman. 
900-1520 Mover fantasmas. 
1530-1670 Titulo. 
1680-2120 Movimiento de los blo- 
ques. 
2130-2210 Borra fantasmas. 
2220-2280 Una vido menos. 
2290-2320 Motor fantasmas. 
2330-2350 Discman ha muerto. 
2360-2490 M6xima puntuaci6n. 
2500-2560 Pantalla completo. 
2570-3450 Pantallas diferentes. 
3460-3550 Fin del juego. 

420 IF IN)EY{37)-O OR JOY(O) AND 4 
THEN GOSU8 660:GOTO 450 
430 IF INKEY(69)-O OR JOY(O) AND I 
THEN GOSLJB 740:GOTO 450 
440 IF INKEY(71)=O OR JOY(O) AND 2 
THEN GOSUB 820 
450 ON pu GOSLIB 1730, 1850, 1960,2080 
460 IF (INKEY(47)=O OR 30Y(O)AND 16 
) AND pt=O THEN ON dp GOSLIB 1680, 17 
70,1900,2010 
470 in=IN](RND6):p=I:ON dr(p) GOSU 
B 900I0701260,400 
480 IF INT(RND350)-2 THEN h INT(RN 
D20)+l:i INT(RND$20)+4:IF m(hi)-I 
OR (h x AND y i) THEN 490 EI SE SOU 
ND 1,250,60,55:m(h,I)=2:LOCATE hi 
:PEN 2:FRIN CHR$(143):PRINT CHR$(2 
2)+CHR$(1):PEN u :LOCATE hI:PRINT 
HR$(233):F'RINT CHR$(22)+CHR$(O) 
490 IF INKEY(36)-O OR JOY(O) AND 8 
THEN GOSUB 570 
500 ON pu GOSUB 17301850,1960,2080 
510 IF INKEY(37) 0 OR JOY(O) AND 4 
THEN GOSUB 660:GOTO 540 
520 IF INKEY(69)-O OR JOY(O) AND 
THEN GOSUB 740:GOTO 54(; 
530 IF INKEY(71) 0 OR JOY(O) AND 2 
540 ON pu OSLI 1730, 850, 960,2080 
550 in-INT(RND5):p 2:0N dr(p) GOSU 
B 900, 1070, 1260, 1400 
560 GOTO 400 
570 REM  hicho derecho 
580 LOCATE ×,:F'EN I:PRINT"]":dp 2 
590 IF x 20 THEN RETURN 
600 IF m(x+1y) 2 THEN RETIlRN 
610 IF m(×+1y) I THEN 2230 
620 IF ×+1 a(1) AND y=b(1) THEN 223 
0 
630 IF x+1-a(2) AND y=b(.2) THEN 223 
0 
640 IF x+l=10 AND y-23 AND do=l THE 
N SOUND 4,286,4504,4"INK I2422: 
do-O 
650 ×=x+I:LOCATE x-Iy:PRINT" ]":RE 
TURN 
660 REM $ pac left 

670 LOCATE V,,y:F'EN :F'RINT"[":dp 4: 
IF x=1 THEN RETLJRN 
680 IF m(×-1,y)=2 THEN RETURN 
690 IF m(x-1y)=1 THEN 2230 
700 IF x-l-a(1> AND y=b(1) HEN 
0 
710 IF ×-I=a(2> AND y=b(2) THEN ?23 
0 
720 IF x-i 10 AND y=23 AND do=1 THE 
N SOUND 4,286,45,0.4,4:INK 1,24,22: 
do-O 
730 x-x-I:LOCAE x,y:F'RINT"[ 
RN 
740 REM tXX sube hombre 
750 LOCATE x,y:PEN IF'RINT"(":dp 
760 IF m(x,y-1)=4 AND do=O THEN SOU 
ND ,164,150.1,2,2:F'EN 14:LOCAE 
y-I:PRINT CHR$C231):LOCATE 10, 23:F'R 
INT CHR$(231):INK ,24:do-1:pl pl+1 
:PEN 3: m (x  y-1 ) =0: so=so+t0: L OCATE 
2,25:PRINT so: IF pl=8 AND qk>4 THFN 
2500 
770 IF y=4 OR m(x,y-1)=2 THFN 
N 
780 IF x a(1) AND y-1 b(1) THEN ?22 
0 
790 IF x=a(2) AND y- b(2) THFN 222 
0 
800 IF m(x,y-) I THEN 2220 
810 y=y-I:LOCATE x,y+I:F'RINT .... :LOC 
ATE x,y:F'EN I:F'RINT"{":RETURN 
820 REM ********** baa hombre 
830 LOCATE :,yIF'EN  :F'INT"I":I:3: 
IF y=23 THEN RETURN 
0 IF m(x,y+l)=2 XHFN 
850 IF m(x,y+1)-1 THEN 2220 
860 IF x=a(1) AND v+=h(1) THEN 222 
0 
870 IF x a(2) AND y+1 b(2) THEN 222 
0 
880 IF x=lO AND y+I-23 AND do= THE 
N BOUND 4.286.45.0.4.4: INK 
do 0 
890 y y+I:IOCAIE x,v-:RRIN .... 
ATE xy:PEN I:PRINT"}":RETURN 
900 REM ******** sbe antasma 
91f IF b(p)-4 OR In-1 THEN 1000 
920 IF m(a(p),b(p)-l)-I THEN I000 
930 IF a(p)=x AND b(p)-1 y THEN 222 
0 
940 IF a(p)-pl AND b(p)-l=p2 AND pu 
<>0 THEN LOEATE a(p)b(p)-1:PRINT" 
":m(a(p),b(p)-1) O:GOTQ 2300 
950 LOEATE 
90 IF m(a(p)b(p)) 2 THEN PEN 2:PR 
INT CHR$(143):PRINT CHR$(22)+CHR$(I 
):PEN 5:LOCATE a(p)b(p):PRINT CHR$ 
(233) :PRINT CHR$(22)+CHR$(O) :GOTO 9 
80 
970 PRINT" " 
980 b(p)=b(p)-1:l OCATE 
N 8: PR I NT"" : RETLIRN 
990 REM **** turn let or right 
* 
1000 IF a(p)>1 THEN 1020 
1010 IF m(a(p)+1b(p)) I THEN dr(p) 
3:RETURN ElSE dr(p)-2:RETURN 
1020 IF a(p)<20 THEN 1040 
1030 IF m(a(p)-l,b(p))=l THEN dr(p) 
-3:RETURN ELSE dr (p)-4:RETURN 
1040 IF m(a(p)+1,b(p))<>1 AND x>a(p 
) THEN dr(p) 2:RETURN 
1050 IF m(a(p)-l,h(p))<>l THEN dr(p 
)-4 ELSE dr(p)=2 
1060 RETURN 
070 REM ** mueve atasma a derech 
1080 IF in=l ON a(p)=20 THEN 118r 
1090 IF m(a(p)+l,b(p))-i THEN 1180 
1100 IF a(p)+1-10 AND b(p)=23 HEN 
1180 
1110 IF a(p)+l x AND b(p) y THEN 22 
20 
1120 IF a(p)+1=pl AND b(p) p2 AND p 
<>0 THEN I OCATE a(p)+I.b(o):PRINT" 

": m(a (p) +1 ,b(p) ) =0: GoTO 
11-'.0 LOCATE a(p),b(p) 
1140 IF m(a(p),b(p))=2 "rHEN REN 2:F' 
RINT CHR$(143):PRINT CHR$(22)+CHR$( 
I):PEN 5:l OCATE a(p),b(p):RRINT CHR 
$(33) :RINT CHR$(2')+CHR$(O) :GOTO 
1 16(; 
115(1 PRINt 
I160 a (p)- (p) +I: LOCATE 
EN 8 : F'R I NT"," : RETURN 
1170 REM I muve antama aFFba 
abao  
11B0 IF b(p)}4 THEN 120) 
I19(-: IF m(a(p),b(p>+1)-I THEN 
=4: RETURN EtSE 
1200 IF b(p)<23 THEN 122n 
1210 IF m(a(p>,b(p>-1) I THEN dK (p> 
-4  RETURN ELSE dr (p) = I : RETURN 
1220 IF m(a(p),b(p)-1){>1 AND 
y THEN dK (p)=I:RETURN 
123C) IF m(a(p),b(p))? THEN d (p 
1240 RE IUKN 
1260 lh b(p)=3 Fi ill-I rlll-N 1",50 
1270 IF m(a(p),b(p)*1) I THEN 1350 
1280 IF a(p) c AND b(p)+l 2% II4FN 
1350 
1290 IF ap} : AND b(p}1=v IIEN 
20 
i00 IF a(p)-p AND hip}+1 p? ANI} p 
u<>O THEN LOCAT (p) b(p)+t:PRINT" 
1310 LOCATE 
1320 IF mia(p).bp}) ? IHFN F'EN 2:F' 
RINT CHR$(i43):PRINT CHR$(22}+CHR$ 
I}:PEN `5:lOCATE (p).bp}:F'RIN[ CHh 
i233}:PRINT CHR$i22+CHR$(O}:GOTO 
EN 8 : P INT"a" : RETURN 
1350 IF a(p)> ttEN 137C 
1360 IF m(a(p)-l,b(p))-1 THEN dr(p) 
=I:RETLIRN Fi SE d (p)=P:RFTURN 
1370 IF a(p)<20 THEN 1040 
1380 IF m(a(p)-;,)(P))  THEN dr(p) 
-I:RETURN ELSE dr(p)-4:RETURN 
1390 REM $II ansma a la 
1400 IF in-I OR a(p)-1 IHEN 49C) 
II0 IF m(a(p)-1b(p))-I THEN 1490 
1420 IF a(p)-1-10 AND b(p)=23 THEN 
1490 
1430 IF a(p)-1-x AND h(p)=y THEN 2 
20 
1440 IF a(p)-1 pl AND b(p)-p2 AND 
u>O THEN LOCATE a(p)-I,b(p):F'RINT" 
":m(a(p)-1,b(p)> O:GOTO 2300 
14.50 LOCATE a(p),b(p) 
1460 IF m(a(p),b(P) )=2 IHFN PEN 
RINT CHR$(143):F'RINT CHR$(22)+CHR$( 
I):PFN 5:OCATE a(p),b(p):F'RINT CHR 
$(233):F'RINT CHR$(22)+CHR$(O):GOTO 
1480 
1470 F'RINT" " 
148o a(p) a(p)-I:IOCATE a(p),b(p):P 
EN 8: PRINT"3": RETURN 
1490 IF h(p)>4 XHEN 
1500 IF m<a(p),b(p)+1) I THEN dr(p) 
-21RETURN Et SE dr (p)=3:RFTIRN 
1510 IF b(p)<23 THEN 1230 
1520 IF m(a(p),b(p)-1)- HEN dr(p) 



=2:GOTO [230 ELSE dr(p)=I:RETURN 
[530 REM $$$$ titulo 
1540 INK 1,24: INK 2,20: INK .6: INK 
4,18:INK 526:1NK 8,18:INK b2:INK 
O,3:BORDER 10:MODE 0: INK 1015: INK 
9,13 
1550 LOCATE I3:PEN I:F'RINT" DISCM 
AN'S REVENGE " 
1560 sc 0 
1570 screen-1 
1580 PEN 4:PRIN:F'RINT:PRIN:PRINT" 
A-ARRIBA Z-ABAO" : PRINT : PR NT" 
K-lO. L-DER. " 
1590 F'RINr=F'FN S;Pt:'IIITFIC'.IIIT" 
xo pa a juqar ":PEN 6:FIRINI 
PRINT" o use joyt ick" 
1600 PEN 7:PRINTPkINT:PkIN[" Pulse 
1610 FOR {=I ]0 ?O:a$-INKEY$:NEX 
t620 FOR F-t TO 19:IF INKEYS<> .... TH 
EN % 670 
IbC F'.N 2:I OCATE {,24:F'NINT 
1):F'EN 10:PRINl"]":FQR q-t TO 50: 
NEXT;NEXI 
[640 FOR { t9 TD ] STEP -J:IF INKY 
$ (>" "THEN I670 
1650 LOCATE f,24:PRINT"[ ":FOR g=1 
TO 50: NEXT: NEXT 
1660 GOTO 
670 PRNT:PINT:PEN [:PRINT"HI SCO 
RE:":HI:PEN 2:PIN::PRIN:" P 
OR "n$:FOR  I TO 5000:NEXT:GOTO I 
0 
1680 REM *i*** empuja arriba 
1690 IF m(x,y-1)<}2 OR m(xy-2) I T 
HEN RETURN 
tTO0 IF m(xy-2)=2 OR y=5 THEN LOCA 
TE x,y-I:SOUND 4C65,0,60,5"PEN 2 
:PRINT CHR$(171):FOR {-I TO 40:NEXT 
:LOCATE x,y-1:m(xy-l) O:F'RINT" ":R 
ETURN 
1710 SOUND I, 140, 
-p2 y-l:m(plp2)=O 
1720 REM  empuja bloque arriba 
1730 IF m(pl,p2-)=2 OR m(pl,p2 I)= 
I OR 92=4 THEN pu-O:m(p1p2)-2:LQCA 
TE pp2:PEN 2:PRINT"#":PRINT CHR$( 
22)+CHR$(1):PEN 5:LOCATE pl,p2:PRIN 
 CHR$(233):F'RIN CHR$(22)+CHR$(O) 
p 1 =0: RETURN 
1740 IF pl=a(1) AND p2-=b(1) THEN 
a I:GOTO 2t40 
1750 IF pl-a(2) AND p2-I-b12) THEN 
a=2: GOTO 2140 
1760 p2=p2-1:LOCATE pl,p2+I:PRINT" 
":LOCATE pl,p2:PEN 2:PRINT"#":RETUR 
N 
1770 REM  empuja a derecha 
1780 IF x=20 THEN RETURN 
1790 IF m(x+t,y)<>2 THEN RETURN 
1800 IF ;{-19 THEN LOCAE x+I,y:SOUN 
D 4,0.65.06O,5:F'EN 2:PRINT CHR$(I 
71 ) :FOR {-I 0 40:NEXT:pI=0:I OCATE 
x+l,y:m(x+l,y) O: PRINT .... :RETURN 
1810 IF m(x+2v)-2 OR (x+2-10 AND y 
-23) THEN LOCATE x+Iy:SOUND 4,0,65 
0,6,05:PEN 2:PRINT CHR$(171):FOR 
f i TO 40:NEXT:pl O:LOCATE 
x+1v)=O: FRINT" ":RETURN 
1820 IF m(x+2y)=1 THEN RETURN 
180 SOUND J , 40, 10,7,0,0,8:pu=2:p1 
x+l:p2-y:m(plp2) 0 
1840 REM : empuja bloque a dere 
c. 
1850 IF p-20 THEN pu=O:m(p 
HR$ ( 22  + CHR$ ( I  : PEN b : 
PRINT CHR$(233):RRINT CHR$(22)+CHR$ 
(O)pl O:RETURN 
1860 IF m(p+1,p2 2 OR m(pl+l,p2)= 
1 OR (p1+l=lO AND p2=23 THEN pu=O: 
m(pl,p2)-2:IOCATE pl,p2:PEN 2:PRINT 
"#":PRINT CHR$122) +CHR$(1) :PEN 5:L0 
CATE pl,p2:PRINT CHR$(233):PRINT CH 
R$ ( 22 } +CHR$  0 ) : p 1 =0 : RE TURN 

1870 IF pi+I a(1) AND p2 b(I) THEN 
a I:GOTO 2150 
1880 IF pl+l=a<2) AND p2-b12) THEN 
a=2:GOTO 2150 
1890 pI=pI+I:tOCATE pI-I,p2:PRINT" 
":LOCATE pl,p2:PEN 2:PRINT"#":RETUR 
N 
1900 REM ** empuja abajo 
1910 IF m(x,y+l)<>2 1HEN RETURN 
1920 IF m<x,y+2)=2 OR y=22 OR (x=10 
AND,v+2=23) ]HEN lOCATE x,y+I:SOUN 
D 4,0,65,0,6,0,5:PEN 2:PRINT CHR$(I 
71):FOR {=I TO 40:NEXT:pI=O:[OCATE 
x,y+t:m(x,y+I)=O:PRINT .... :RETURN 
1930 IF m(×,y+2 I ]HEN RETURN 
1940 SOUND 1,140,10,7,0O8:pu-3:pl 
-×:p2-y+1:m(p1,2)=O 
1950 REM  empua bloque abajo 
1960 IF p2=23 TIIEN pu-O:m(pl,p2)=2: 
LOCATE pI,p2:F'EN ?:PRINT"#":PRINT C 
HR$(22)+CHR$(1):REN 5:LOCAE plp2: 
PRINT CHR$(233):PRINT CHR$(22)+CHR$ 
(O):pl O:RETURN 
1970 IF m(p1.p2+1) 2 OR m(pl,p2+1)= 
I OR (pi-I0 AND p2+1=23) THEN pu-O: 
m(pIp2)=2:LOCATE pI,p2:F'EN 2:PRINT 
"#":PRINT CHR$(22)+CHR$(l):PEN 5:LO 
CATE pl.p2:F'RINT CHR$(233):PRINT CH 
R$(22)+CHR$(O):pI=0:RETURN 
1980 IF p1=a(1) AND p?+I b([) THEN 
a-I:GOTO 2150 
1990 IF pl-a(2) AND p?÷1-b(2) THEN 
a 2:GOTO 2160 
2000 p2=p2+I:iOCATE pl,p2-1:PRINT" 
":LOCATE pl.p2:PEN 2:PRINT"#":RETUR 
N 
2010 REM *** empuja izqu. 
2020 IF m(x-l,y<>2 THEN RETURN 
2030 IF ×-2 THEN LOCATE ×-Iy:SOUND 
4,0bSO6,0,5:PEN 2:PRINT CHR$(17 
[):FOR  I TO 40:NEXT:LOCATE ×-ly: 
m(x-I,y>-O:pI=O:PRINT .... :RETURN 
2040 IF m(x-2y)=2 OR m(x-2y) I OR 
(x-2 10 AND y=23)THEN LOCATE x-l,y 
:SOUND 4.0,65,0,6O5:PEN 2:PRINT 
HR$(171):FOR +-I TO 40:NEXT:LOCATE 
x-I,y:m(×-I,y)=O:PRINT .... :pl O:RETU 
RN 
2050 IF m<x-l,y)=1 THEN RETURN 
2060 SOUND 1140,10,7OO8:pu=4:pl 
x-l:p2=y:m(pl,p2) 0 
2070 REM I empua bloque a izqu 
?OBO IF nI=1 THEN ou 
OCATE pl.p?:PEN 2:PRINT"#":PRINT CH 
R$ (2) +CHR$ ( I ) : PEN h: I OLA I E p  , p: P 
RINT CHR$(233):PRINT CHR$(22)+CHR$( 
O) : RETURN 
2090 IF m(pi-l,p2)-2 OR m(pI-I,p2)- 
t OR (pt-1=10 AND P2-23) THEN pu=O: 
m(pI,p2)=2:IOCATE p).p2:PEN ':F'RINT 
"#":PRINT CHR$(22)+CHR$(1):REN 5:L0 
CATE pIp2:RRINT CHR$(233):PRINT CH 
R$(22)+CHR$(O):PI O:RETURN 
2100 IF pl-1=a(1) AND p2=b(1) THEN 
a=l:OOTO 2170 
2110 IF p1-=a(2) AND p2=b(2) THEN 
a 2:GOTO 2170 
2120 pl-pI-I:IQCATE pI*Ip2:PRINT" 
":LOCATE pI,p2:PEN 2:PRINT"#":RETUR 
N 
2130 REM *** iniciallza fantasmas 
2140 SOUND 40,650,605:pu O:m(pl 
.p2)=O:LOCATE plp2:PRINT" ":LOCATE 
pl,p2-1:PEN :F'RINT CHR$(i71):FOR 
(-I TO 40:NEXT:LOCATE pIp2-1:PRINT 
.... :GOTO 2180 
2150 SOUND 4,0,65,0,6,0,5:pu=O:m(pl 
p2)-O:LOCATE pIp2:PRINT" ":LOCATE 
pI+Ip2:PEN 2:PRINT CHR$(171):FOR 
=I TO 40:NEXT:LOCATE pI+Ip2:PRINT 
.... :GOTO 2180 
2160 SOUND 4(I,650605:p O:m(pl 
p2)-O:LOCATE pIp2:PRINT" ":LOCATE 
pl,p2+I:F'EN 2:PRINT CHR$(171):FOR 

-I TO 40:NEXT:LOCATE pl,p2+I:PRINT 
.... :GOTO 280 
2170 SOUND 4O,65,0,&,O,5:pu O:m(pl 
,p2)-O:LOCATE pl.p2:PRINT .... :LOCATE 
pI-I,p2:PEN 2:PRINT CHR$(171):FOR 
-I TO 40:NEXT:LOCATE pI-Ip2:PRINT 
2180 a(a)=20:b<a)=4:pl-O 
2190 gk=gk+1:t_OCATE 16, I:PEN I:PRIN 
T gk:sc=sc+5:PEN 3:tOCATE 1225:PRI 
NT SC 
22(:(: IF pl 8 AND gk>4 THEN 250(: 
2210 RETURN 
2220 REM $$II descuenta vida 
2230 SOUND ?,IC0,190,7,0,3:INK 2,20 
,15:INK 8,8,2:INK O,O,3:PRINT CHR$( 
22)+CHR$(1):PEN 5:IF pu<}O THEN LOC 
ATE pl,p2:F'RINT CHR$1233) 
2240 PRINT CHR$(22)÷CHR$(O):p=0 
2250 FOR  I TO 2:LOCATE a(),b(): 
IF m(a({>,b({))=O THEN PRINT" ":GOT 
0 2270 
2260 IF m(a(),b<>)-2 THEN PEN 2:P 
RINT CHR$<22)+CHR$(1):LOCATE a(),b 
():PRINT OHR$(143):PEN 5:LOCATE a( 
)b<():PRINT CHR$(233):PRINT CHR$( 
22>+CHR$<0) EtSE PEN 14:PRINT CHR$( 
2311 
2270 NEXT:FOR =I TO 2499:NEXI:INK 
2.20:INK 8.18:INK O3:LOCATE xy:PR 
INT .... 
22B0 Ii [i-[:LOCATE 1725PRINT" 
":IF li=O THEN 2330 EtSE 370 
2290 REM II$1 ÷an{asma mueto 
2300 SOUND 4O,65,0,6,0,5:I_OCATE a( 
p),b(p):PEN 2:PRINT CHR$(171):pl O: 
pu-O:qa a(p):qb-b(p):IF p I THEN 
I) 20:b11)=4 ELSE a(2) 20:b12)=4 
2310 FOR =I 0 30:NEXT 
2320 LOCATE qa,qb:PRINT .... :gk gk+l: 
LOCATE 16,1:PEN [:PRINT gk:sc-sc+5: 
PEN 3:LOCATE 12,25:PRINT sc:GOTO 22 
O0 
2330 REM ***$ bicho muerto 
2340 FOR $-I TO ?5:LOCATE [,[:PRINT 
CHR$<II):SOUND I,2,2:NEXT 
2350 IF sc')hi THEN 2360 ELSE 1540 
2360 REM  introduce hombre 
2370 FOR =I TO 100:k$ INKEY$:NEXT 
2380 CLS:n$="":F'EN I:PRINT:PRINT:PR 
INT" ESCRIBE TU NOMBRE" 
2390 PEN 4:tOCATE 78:PRINT STRINGS 
(8,CHR$(208)) 
2400 LOCATE I,I8:REN 3"PRINT" Tu pu 
2410 =6:WHILE <14: +I 
2420 IF INKEY([8)=O THEN 2490 
2430 $=INKEY$:IF $ .... THEN 2430 
2440 IF j$ CHR$(127) AND f>7 THEN f 
{-[:LOCATE {,7:PRINT .... 'n$=LEFT$ 
(n$,LEN(n$)-I):SOUND I305,4:-{-1 
:GOTO 2480 
2450 IF j$=CHR$<127) THEN {=b:GOTO 
2480 
2460 PEN 2:LOCATE {.7:PRINT tIPPERS( 
2470 SOUND I{:554:n$ n$+jS 
2480 WEND 
2490 n$ UPPER$(n$):hi-sc:GOTO 1540 
2500 REM : pantalla terminada 
2510 SOUND 1284,400,1,1I:1NK 0.3. 
I:FOR {-I TO 6990:NE×T:INK O3:FOR 
{-I TO 25:LOCATE II:PRINT CHR$(11) 
:SOUND I,f5,1,4:NEXT:MODE 
2520 LOCATE II,IO:F'RINT" $ Well d 
Oe. " 
250 screen=screen÷[:IF screen=6 TH 
EN 3470 
2540 F'EN 2:PRINT:PRINT:RRINT" 
Estas ahora en la pantalla";screen 
2550 FOR  I TO 600D:NEXT 
25&0 INK 1,24:gk-O:pI=O:MODE 0:80T0 
170 
2570 REM III$$ pantalla I 



2580 REM 
** 
2590 FOR  3 TO 6:m(,5) 2:m(+6.5) 
=:mif+12.5)-2:m(T-1,11}-2 
2600 m(T+13.11)=2:m(÷+117)=2:m(f+1 
1.17) 2:m(-l20)=2:m(+13,20)=2:m( 
f+6.16) 2 
2610 m(f+2.22)=2:m(f+1322)-2 
2620 NEXT 
2640 m(f-7.14)->':m(T*O.)4)=:..:m(÷ 6 
22)=2:m(f+5,22) 2 
2650 NEXT 
2660 m(3.3)=2:m(4.13)-2:m(7.13) 2 
:m(18.13)=:mlO 20) 2m(iI.20)-2. 
267(; FOR =5 0 8:m(2.) 2:m(19. f)= 
2:m(5.f+3)=:m(I6.  f÷3)-2:m(7.f+6) 2 
:m(14.f6) 
2680 m(2. f+1;)=?:m(19.f11) 2:m(7.T 
+12)O:m(14.f+12)=2 
2690 NEXT 
2700 REM  dlbuja plantas venenosa 
2710 RESTORE 2730:POR ÷=I TO 22:RA 
D ab:m(a.b)=1:NEXT 
272{; RETURN 
2730 DATA 8 5 3.5 7.7.1(1.7 11,7,4 
.7,3, I0. 18. I0.9 13.10,13.11.13.12.1 
3 
2740 DATA h. 15.16.15.9.18.12. 8.=. I 
916.19.8.2013.20.4.23.17,23 
2750 REM 
2760 REM 
277(; FOR T=6 TO 9:m(.4)-2:m(f+6.4) 
=2:m<f+3.9) 2:m<f-4.12)=:m(f+lO,12 
)-2 
2780 m(-Ib)=2:m(+7.16)-2:m<f+3. 
18)=2:m(T-423)=:m<+lO.23)=2 
2790 NEXT 
2800 FOR ÷-6 TO 8:m(.6)-2:m<+7,6) 
=2:m<-5 I0)=2:m(-2,10) 2:m(+910 
)-2:m(+12.10)=2 
2810 m<+2,13) 2:m(+5.13)-2:m(T-5. 
20)=2:m<+I2.2(:)=2:NEXT 
2820 FOR =4 TO S:m<3,)-2:m(18,)= 
2:m(5.+8) 2:m(16.T+8)=2 
2830 m<3.+ll)=2:m(180+11) 

+I4)=2:m(15.÷+I4)=?:NEXT 
2840 RESTORE 2850:FOR =I TO IO:REA 
D a.b:m<a,b)-2:NEXT 
2850 DATA 286,76815715819 
8.3.20182¢h6.23.15.73 
2860 REM  dibua plantas venenosa 
2870 RESTORE 2880:FOR f=1 TO 20:REA 
D ab:m(ab) I:NEXT 
2880 DATA 
0,11.IiII13.11.I14.20,14 
2890 DATA A.15.11,5.5.19.6.19.9. 
201220421,17217221422 
2900 RETURN 
2910 REM  pantalla 3 
2920 REM  dibua bloques 
2930 FOR =5 TO 9:m(f.5)=2:m(+705) 
=2:m(-47)=2:m(+4.7)=2:m(f+ll7)= 
2 
2940 m(-1. I0)=2:m(+8. I0)=2:m(-3. 
22) =2: m (+I0, 22) =2 
2950 NEXT 
2960 FOR =I TO 
12)=2:m(T+4lS=?:m(f+815 ?:m(+l 
2.5)=? 
2970 m(÷+420)=?:m(f+1?.?O)=2:NEX] 
2980 FOR f=15 TO 18:m(2,)=2:m(8) 
=2:m(13.f)-2:m(9.)=2 
2990 m(5,+2)=2:m(16.f+2)-2:NEXT 
3000 RES]ORE 30O:FOR = TO 2:REA 
D a0b:m(a.b)=2:NEXT 
3010 DATA 
912,7.130121203°12,4°12.14,13.1 
.1422.1423 
3020 REM $ dibu]a plantas venenosa 
s  
3030 RESTORE 3050:FOR f- TO 24:REA 
D ab:m(a°b)=l:NEXT 
3040 RETURN 
3050 DATA 
,5,781484.9179,10.10III0 
3060 DATA 
3.15°23 
3070 REM  pantalla 4 
3080 REM  dbuia bloques 
3090 FOR =3 TO 7:m(f4)=2:m(f+114 
)-2:m(+2.6) 2: m (+9.6)-2: m (T+6.9) 
2 
3100 m(f-2.1))-?:m(f+13.11) 2:re(f+2 
.15)=2:m(+9,15)=2:m(+217)=2:m(+ 
917)=2 
3110 m(f-2°21)-2:m(f÷13.2)-?:m(-] 
.23)-2:m(+I223)=2:NEXT 
3120 FOR -10 TO ll:m(.4) 2:m(f.17 
)-2:m(T-2lg)=2:m(f+219)=2 
3130 m(-3.23)=2:m(+323)=2:NEXT 
3140 FOR -4 TO 9:m(20f)-2:m(19)- 
2:m(5f÷2)=2:m(16°+2)=2:m(3T9)=2 
3150 m(18+9)-2:NEXT 
3160 FOR f-9 TO 11:m(8.f)-2:m(3.) 
=2:m(5T+4)=2:m(16+4)=2 
317(I 
I) 2:m(13.f+11) 2:NEXT 
3180 REM  dlbua plantas venenosa 
s  
3190 RESTORE 3210:FOR =I ]0 34:REA 
D ab:m(a,b)=l:NEXT 
3200 RETURN 
3210 DATA 8.5.90502°5.13.5°I06.406 
.176206,10,8II8.3,9,189 
3220 DATA 6°I0°7,1014°015°10]0. 
323(I DATA 10.15.11°5.2.17.19.7.0 
,18,1118,7,20,1420,9211221,62 
3.15.23 
3240 REM  pantalla 5 
3250 REM  dibua bloques 
3260 FOR =2 TO 5:m(T5)=2:m(÷÷75) 
2:m(+14,5)-2:m(+2,7) 
-2 
327(I m(f-l11) 2:m(+151))=2:m(+4 
,15)=2:m(+lO15)=2:m(+5,17) 2:m(f 

+9, 17) 2 
3280 m(f-121)=2:m(f+15,21) 2:m(f+3 
3290 
33u0 NEXT 
3310 FOR f=2 TO 4:re(T.9) 
2: m (f +7.9) =2: m (; 15 9) =2 
3320 m (6. 
13)=2:m(+4. 13) =2:m(f+13 13) -2:m(f+ 
14 13) =2 
3330 m (- . 17)=2:m(f+]6. 7)=2:m(  2 
3)=:m(f+15 23)=2:m(+11. 13)=2:NEXT 
3340 FOR  5 TO 
:m(14. f) 
$350 m(6+4)-2:m(15.+4) 2:m(f+8 
) =2:m(20 f+8) =2: m(3 f+9) =2: m ( 18, f+9 
)=2 
3360 m (5. +I0) =2: m (6. +I0)-2: m (5.  
+14) -2: m( 16 f +14)-2:NEXT 
3370 RESTORE 3380:FOR = TO 6:READ 
a.b:m(ab)-2:NEXT 
3380 DATA 10.7.11.7.4.817,8I122 
0, 12 
3390 REM  dibua plantas venenosa 
s  
3400 REST0RE 3410:FOR =I TO 41:REA 
0 a,b:m(a,b)-l:NEXT 
3410 DATA 44.6.4.8.410.4,12414, 
4 16,4 I. 5 2059 7. 12 7.28. 198 
3420 DATA 510I0I(),11 I0,16107, 
12. 14. 12.2. 
3430 DATA   193. 19.7 I%819, I0 19 
 II 19. 13 19. 
3440 DATA 6.21. 15.21.8.22. 13.22.4,2 
3. 1723 
3450 RETURN 
3460 REM  in del uego 
3470 MODE 1:PEN I:LOCATE 16I0:PRIN 
T"EXCEt ENTE ":PRINT:PRINT" Has c 
ompletado todd el juego." 
3480 RRINT:REN 2:PRINT" SoD 
re score  I . 5" 
3490 sc scl.5 
3500 FOR =I TO 800:NEXT 
3510 MODE O:GOTO 2370 
3520 MODE O:PRINT CHR$(22)+CHR$(1): 
PEN I:I OCATE I0. O:PRINT CHR$(233): 
PEN 6:LOCATE 10IO:PRINT"#" 
3530 LOCATE I() 10: ch%=O: CALL &ADD0, 
8oh%: PRINT oh% 
3540 ch%=O:MODE O:x=10:y-O 
3550 LOCATE x.y:PEN 2:PRINT"#":PEN 
I:LOCATE x.y:CALL &AOOO,ch%:PRINT 
PRINT oh% 
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Inf.orm+Gtica 
resenta: a tab eta gr  fica 
G RAFP, ! II- 
LO ULTIMO EN DISPOSITIVOS DE ENTRADA DE GRAFICOS 
PARA AMSTRAD, COMMODORE Y BBC 
La primera tableta gnifica, de bajo costo, en ofrecer la duraddn y prestadones requeridas rlas 
aplica¢iones de negodos, industria, hogar y educacidn. Es pequefia, exacta y segura. No necesita 
ajustes ni mantenimiento preventivo. GRAFPAD II es un producto 6nico que pone la potencia de 
la tecnologia modema bajo el control del usuario. 

DIBUJO A MANO ALZAD' 
SOFTWARE DE ICONO$ 

i " ' .' .,, FOOrXO$ 
DI EO DE ARQUffECI'UA 

ESPECIFICACIONES 
RESOLUCION: 
1.280 x 1.024 pixels. 
PRECISION: 
1 pixel. 
TASA DE SALIDA: 
2.000 pares de coordenadas pot 
segundo. 
INTERFACE: 
paralelo. 
ORIGEN: 
borde superior izquierdo o 
seleccionable. 
DIMENSIONES: 
350x260x 12 mm. 
DISPONIBLE AMSTRAD: 
CASSETTE .... 23.900 ptas. 
DISCO ............ 25.900 ptas. 
(IVA NO INCLUIDO) 
ACIL DE USA' 
TRAZADO PCB. 
,A.D. 

AREA DE DISE 1 t I " , ,. 
OLOR EN ALTA 
' ESOLUCION. 
• SO EN HOGAR Y 
EGOCIOS. 
• ARIEDAD DE PROGRA .t, 
I ISPONIBLES. 
" • I IBUJO A MANO ALZADA. 
• s  RAMbS DE CIRCUITs,,. 
DE VENTA EN LOS MEJORES COMERCIOS DE INFORMATICA 
Si Vd. tiene alguna dificultad para obtener la tableta gdtfica, puede 
dirigirse a: 
• v, . Isabel ii, 6 -8' 
Ofites To. 455544 -45553 
Informtica T+lex 3198 
zoom SAN StASr AN 

t, sMBIN, E ' UN UNIC.O tlSPOSITIVO TODAS LAS 
' RESTACIONES DE LOS INTENTOS PREVIOS DE 
.. ECANISMOS DE ENTRADA DEGRAFICOS. LAS 
' PLICACIONES SON MAS NUMEROSAS QUE EN LOS 
t . AS DISPOSITIVO OMUNES E INCLUYEN: 
• "lecci6n de option , s .ntrada de mode os • ecogida 0. 
,.tos • diseflo 16gio, • ,iseflo de circuitos • creaci6n de 
.;,.-.'u • :lmacenamento de imig..a. • r uperaci6n d- 
r: :,  • ,isefio para construcci6 • .' .D. diseito asisti0, 
0,. ordena0or) • ilustrad6n de textos • "ue,_-: •dise,, 

ONDICIONES ESPECIALES PARA DISTRIBUIDO ' 



Inform  tica 

Presenta: 
el l  piz al que gusta decir 
mientras nuestros competidore 

, icen no 

UNICO PARA AMSTRAD, CON PRECISION PIXEL 

FUNCIONES 

UNICO MENU DE PANTALLA 
ARRASTRE OBJETOS PANTALLA 
TRASLADO OBJETOS PANTALLA 
TRASLADO DE CURSOR 
CAJAS ELASTICAS 
LINEA ELASTICA 
TRIANGULO ELASTICO 
ELIPSE ELASTICO . 
DIAMANTE ELASTICO 
POLIGONO ELASTICO 
HEXAGONO ELASTICO 
OGONO ELASTICO 
CUBO ELASTICO 
PIRAMIDE ELASTICA 
CIRCUNFERENCIAS 
CIRCULOS RELLENOS 

ESP "+ OTROS 

SI 
SI NO 
 NO 
SI SI 
S I m 1 
I SI 

CAJAS RELLENAS 
ELIPSES RELLENAS 
CUNAS 
SIMULADOR DE CORTES 
_---ISEIO DE ZOOM 

SI 
SI 
I 
SI 
SI 
SI 

IMAGEN ESPEJO E INVERTIDA 

FONDO DE REFERENCIA 
REJILLA DE FONDO 
OPCION DISPLAY X, Y 
RELLENADO CON COLOR 
LAVADO DE COLOR 
VOLCADO PANTALLA RESIDENTE 
DIBUJO DE BORDES EN 3 D 

TEXTO 
9 TAMANOS DE BROCHA 

18 TOBERASMOSTRADORS 

4 MEZCLAS BASICAS 

VARIADOR DE MEZCLAS 

SOMBREADO DE MEZCLAS XOR 

FICHERO ICONOS RESIDENTES 

FICHERO RELLENOS RESIDENTES 

26 COLORES DE PAPEL 

SI 
SI 
SI 

SI 
SI 
SI 

SI 
SI 
SI 
SI 
SI 
SI 
SI 
SI 
SI 

SI 
SI 
SI 
SI 
SI 

NO I 
NO I 
I NO I 
I NO 
I No 
NO - o 
' NO' 
NO 
NO 
NO 
0  o 
NO 
NO 
NO 
NO 
NO 
NO I 

CONTROL CON JOYSTICK 

SI 
SI 
SI 

I S1 

DISPONIBLES MODOS 1 Y 2 I SI 

I NO I 

i NO 

PALETA DE 15 TONOS DE COLOR NO 
--POSICIONAMIENTO DE PUNTO SI 
R.AYOS DESDE UN PUNTO FIJO NO 
DIBUJO REFLEJADO (ESPEJOI I SI NO 
FUNCION HOME I SI NO 
CONTROL DESDE TELADO ! SI SI 
NO I 

DEBIDO A LA FALTA DE ESPACIO NO PODEMOS LISTAR LAS OTRAS 
40 FUNCIONFS MAS OUE NUETRO LAPIZ ES CAPAZ DE HACER. 
DISPONIBLE PARA: 
CPC 464 CASSETTE ,.', 
CPC 464  DISCO ...................... 6. 
CPC 61 DISCO ............................ 6. 
( "A noJncluido) 
,0 NDICIONES ESP ¢ gl! • '. 'g  ISTRIBUIDO ' ': 

STOS O 
, LGUNOS EJEMPLOS 
DE LOS GRAFICOS QUE VD. 
PODRA REALIZAR CON NUESTRO 
APIZ OPTICO 

|1 

E VENT, EN LOS ME,IORES 

DE INFORMATICA 
Si Vd. tiene alguna difkultad para obtener el fftpiz 6pti¢o, 

Ofites 
Informfitica 

Avda. Isabel H, 16 -8* 
Tds. 455544 - 455533 
T'dex 36698 
20011 SAN SEBASTIA 



' 0 
DE TU 
AMST'' , 

Te sientes solo cuando estds haciendo tu programa? 
eNecesltas que te digan d6nde te has equivocado, pero 
ducadamente? Quieres oir Io que siempre qulsiste oir 
acerca de ti y no hay nadie que te Io diga? Te 
ofrecemos una sugerencia: Dale voz a tu preciado e 
incondiclonal Amstrad. 

Onica explicaci6n a tan precaria sujeci6n, es 
la posibilidad de acceso r6pido y directo en 
caso de averia. Pero,  no se podian haber 
puesto unos tornillitos. 

ce poco tiempo rela- 
tivamente, pensar que nuestro ordenador se 
comunicar6 con nosotros mediante la voz, era 
un poco de ciencia-ficci6n, pero todos sabia- 
mosque antes o despus Ilegaria a nuestras 
manos -y a nuestros oidos- esta posibilidad. 

Primero nos Ilegaron los sintetizadores de 
voz en ingles, pero la verdad sea dicha, o se 
estaba algo preparado en el idioma de su gra- 
ciosa majestad y por Io tanto hacias tus pini- 
tos con el aparato, o 6ste no tenia mucha utio 
lidad. 
Posteriormente, como era de esperar, a al- 
guien se le ocurri6 la idea de darle voz en cas- 
tellano a nuestro brit6nico ordenador. 

Conexi6n del sintetizador 
Lo conexi6n del sintetizador al ordenador 
se realiza a trav6s del bus de expansi6n, y por 
Io tanto el acoplamiento y desacoplamiento 
debe hacse con el ordenador apagado. 
En su parte trasera el sintetizador deja libre 
el bus de expansi6n para que se pueda utili- 
zar una unidad de disco, pero hay que tener 
cuidado al montarla y desmontarla y hacerlo 
con suavidad, pues puede ocurrir que se nos 
quede en la mano la tapa posterior del sinte- 
tizador, cosa que nos sucedio. Esto la verdad 
es que nos dej6 bastante sorprendidos, y la 
30 

Vamos a ensear a hablar 
a nuestro Amstrad 

Esto Io haremos cargando, mediante cas- 
sette, el programa que genera los comandos 
necesarios para que oigamos la voz de nues- 
tro ordenador. 
Como el mismo fabricante indica, hoy dia 
hay dos tendencias en la sintesis de voz. 
- Dar gran calidad de voz y mucha me- 
moria ocupada, con poco espacio para pro- 
grama o textos. 
- Dar una voz bastante met61ica y dicci6n 
un tanto peculiar, pero poca memoria ocupa- 
da. 
EIIos se ban decidido por la segunda posi- 
bilidad, y esta elecci6n nos parece acertada 
bajo el punto de vista del programador, que 
prefiere una pronunciaci6n tal vez menos per- 
fecta de Io que seria de desear fon6ticamente 
hablando, pero que deja mucho campo de tra- 
bajo. En el caso que nos ocupa, realmente se 
deja mucho campo de trabajo puesto que el 



programa s61o tiene 1 K y media aproxima- 
damente. 
AI terminar la carga del programa apareo 
cer6 en pantalla el siguiente meng: 
1. COPIAR EL PROGRAMA EN DISCO 
2. COPIAR EL PROGRAMA EN CINTA 
3. DEMOSTRACION 
4. RETORNAR AL BASIC 

Si elegimos una de las dos primeras opciones, 
podremos salvar en disco o cinta el progra- 
mo. 
En la tercera opci6n, el sintetizador se nos 
presentar6 y nos dar6 la posibilidad de que 
le demos unas palabras o frases que 61 pro- 
nunciar6. 
Y si escogemos la cuarta opci6n se nos mos- 
trar otro meng: 

1. CON GENERACION DE COMANDOS 
2. SOLO RUTINA EN CODIGO 
MAQUINA 
3. VOLVER A MENU PRINCIPAL 

En el primer caso los comandos generodos 
son Iset y Ireset, y stos a su vez se dividen 
en Iset,0 y Iset,1, Ireset,0 y Ireset,1. 
El comando Iset,0 redirecciona la salida por 
impresora hacia el perif6rico y despu6s de eje- 
cutarse toda salida por el canal 8 (print #8) 
se pronuncia directamente. 
Si despu6s de la instrucci6n anterior se eje- 
cuta Iset,1 el texto saldr6 en pantalla. 
Con Ireset, 1 anular6 la orden anterior y si 
utilizamos Ireset,0 podremos volver a utilizar 
la impresora. 
A continuaci6n vamos a ver un pequeo 
ejemplo de programa: 
Si el programa Io carg6semos sin ejecutar, 
o sea con LOAD", y quitamos la linea 110, 
tendremos un solicito dictador (con perd6n) del 
listado del mismo o medida que aparece en 
pantalla. 
Despu6s de esto y volviendo al segundo me- 
n6, con la segunda opci6n accederemos a la 
posibilidad de trabajar en c6digo m6quina, 
ero al Ile.clar aqui nos encontramos con una 



i 
I SINTETIZADOR DF vOZ 

lesagradable sorpresa en el 464, yes que tras 
pulsar dos o tres veces el ngmero 2, nos apa- 
reel6 en pantalla MEMORY FULL IN 580, qui- 
tamos la unidad de disco y cargamos de nue- 
vo el programa, pero el mensaje volvi6 a ser 
el mismo. Sin embargo, en el 664 yen el 6128 
no hubo problemas. 
La direcci6n de entradaes 41552, o sea que 
tendremos que teclear CALL &A250 y luego 
a partir de la 42359 (&A577), daremos la ta- 
bla de caracteres ASCII (en minOsculas) cuya 
Iongitud m<xima ser6 de 255 caracteres. 
La posici6n 41551 no se debe utilizar pues 
la necesita la rutina en c6digo m6quina para 
su funcionamiento. 
En el acumulador tendremos que indicar el 
nOmero de caracteres de la tabla, yen el re- 
gistro BC dejaremos un puntero indicando la 
direcci6n siguiente a la ocupada por el Oltimo 
car6cter. 
Las condiciones de salida quedan as/: 
Destruye el contenido de AF, BC, DE y HL. La 
direcci6n de Hardware ocupada por el sinte- 
tizador es &FBEO. 

Y c6mo bahia... 

El tono es bastante met61ico y robotiano, 
pero es comprensible y con oirle un poco nos 
adaptaremos a su timbre de voz. 
En cuanto a su pronunciaci6n, es bastante 
sibilante y en el caso de las erres, uves 
y bes son dificilmente inteligibles, mientras que 
<equis>>, tes> y des>> las pronuncia muy bien, 
siendo un verdadero placer oirle decir, por 
ejemplo, <exquisito>. 
La cadencia de dicci6n es acertada, y no nos 
habla como una <metralleta ni como un dis- 
co de 45 r.p.m, puesto a 33 r.p.m. 
Asi que a partir de ahora, todos podremos 
escuchar a nuestro ordenador que nos avisa 

de un posible error, que nos lee la carta que 

momentos antes hemos escrito, oir c6mo va 
relatando a nuestro nene el desarrollo de un 
programita de aprendizaje, etc. 

Conclusi6n 

Despu6s de la prueba de este perif6rico se 
nos ocurri6 pensar en sus posibles utilidades 
en la vida cotidiana y entre otras, aparte de 
la propia durante la programaci6n, vireos una 
muy interesante en la educaci6n, puesto que 
seguro que el nio o la persona que se senta- 

r6 delante del ordenador se sentiria m6s atrai- 
dao interesada, por Io que esa peculiar voz 
met61ica le fuera relatando acerca de Io que 
apareciera delante de 61 en la pantalla. Esto 
seria una gran ayuda al educador o profesor, 
puesto que veria sus esfuerzos did6cticos apro- 
vechados y a la vez seria una manera m6s de 
acercarse al campo de la inform6tica, campo 
que est6 demostrando ser cada vez m6s ne- 
cesario en la formaci6n de las futuras gene- 
raciones. 
En suma, nos parece acertada toda tenden- 
cia de acercar y humanizar la relaci6n con 
nuestra m6quina, m6s si como en esta ocasi6n 
est6 aceptablemente Iograda. El pr6ximo paso 
es que nosotros la hablemos, nos entienda y 
obedezca, olvid6ndonos de teclear... 

 Ficha tcnica 

CARACTERISTICAS 
FABRCANI"E: MH1 Ingenieros 
Tel. 413 92 68 
C/S6nchez Pacheco, 78 
28002 Madrid 
D STRIBUYE: MHT Ingenieros 
CONTENIDO DEL PAQUETE 
Sintetizador de voz 
Programa en cinta explicando 
funcionamiento en car6tula 
SISTEMA OPERATIVO: AMSDOS 
PRECIO: 9.000 PTAS. 
COMPATIBLE: 464, 664 y 6128 
* DATOS FACILITADOS 
POR MHT INGENIEROS _____--- 
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gratuito en Felipe II 

SOFTWARE: ii2 PROGRAMAS POR EL PRECIO DE 1!! 
Y adem6s, completamente gratis, un magnifico reloi de cuarzo. Increlble ;.verdad? 

Ptas. 
PING PONG 2.295 
SABOTE U R 2.295 
RAMBO 2.295 
YIEAR KUNG FU 2.295 
WORLD SERIES BASEBALL 2.095 
MAPGAME 2.750 
RAID 2.295 
HYPERSPORTS 2.295 
HIGHWAY ENCOUNTER 1.750 
HIGHWAY ENCOUNTER DISCO 3.300 
ALIEN B 1.750 

I 
Ptas. 
DYNAMITE DAN 2.100 
SABRE WULF 1.650 
THEY SOLD A MILLION 2.500 
FIGHTER PILOT 1.975 
MASTER OF T. LAMP 1.950 
NIGHIT SHADE 1.950 
HACKER 1.950 
SUPER TEST 2.300 
TORNADO LOW LEVEL DISCO 3.300 
TORNADO LOW LEVEL 1.750 
KNIGHT LORE 1.750 

SOFTWARE DE REGALO: iiOFERTA 2 x 1!! 

n r eciO s.. P,r cPC 612 

Beach Head 

Decathlon Dummy Run Beach Head Southern Belle 
SOFTWARE DE GESTION PROFESIONAL 

DBA II 17.800 DR. GRAPH 
CBASIC 15.100 CONTABILIDAD 
DR DRAW 15.100 Y VTOS. 

15.100 
16.600 

IM" : $ORA$ 
"i 0 % , T . $OBRE P. I/.P.!! 

• ' UNIDAD DE DISCO 51A '' 
"/ PARA AMSTRAD 
34.900 PTA$. 

CINTA VIRGEN ESPECIAL ORDENADORES 
69 PTAS. 

SINTETIZADOR DE VOZ EN 
CASTELLANO 
15% DTO. 
CASSETTE ESPECIAL ORDENADOR 
5.295 PTA$. 

JOSTICK QUICK SHOT II 
1.995 PTA$. 
JOYSTICK QUICK SHOT V 
2.295 PTA$. 
con la compra de un joystick 
iiGPATIS 1 RELOJ DE CUARZO!! 

DISKETTE 5Y" 
295 PTAS. 

DISKETTE 3" 
990 PTA$. 

Pedidos contra reembolso sin ninggn gasto de envio. Tels. (91) 275 96 16/274 53 80, o escribiendo a Micro-1. C/Duque de Sesto, 50.28009 Madrid 



; LGORITMO$ Y 

lAG " S DE FLUJO 

Daniel Palomo Ortega 

Cuando nos sentamos ante nuestro ordenador 
para realizar un programa, Io solemos hacer sin 

plantearnos prevJamente, el problema. Esto nos 
Ileva a probarlo y corregrlo varias veces, Io que 

se llama puesta a punto, programar a cap6n, etc. 
Esto es causa de que el programa, la mayorla de 
las veces, quede sucio y poco efectivo, sin contar 
que, seguramente, habremos invertido m6s 

tiempo del que teniamos previsto para su 
realizaci6n. Un programa es un problema o una 

serie de problemas, que exlgen una solucJ6n. En 
este artculo intentaremos explicar las pautas 
necesarias para conseguir resolver nuestro 
programa de la forma m6s r6pida y limpia 
posible. A esto nos ayudar6n los algoritmos y 
diagramas de flujo. 

t6rmino algorit- 
mo deriva del nombre del matem6- 
tico 6rabe AI-Khuwarizmi y se descri- 
be como la secuencia de pasos que 
se siguen para resolver un problema. 
Esta debe tener una serie de pasos 
limitada, ya que si no tardariamos 
mucho tiempo en ver el resultado. Se 
puede expresar en cualquier lengua- 
je, natural o pseudoc6digos. Tam- 
bi6n debemos tener en cuenta todas 
las posibles situaciones que se pue- 
den producir. Veamos un ejemplo de 
c6mo conseguir escuchar mOsica con 
un tocadiscos: 
1 Conectar el equipo (en caso de 
que no Io est6). 
2 Situar un disco en el aparato. 
3 Depositar, con cuidado, la agu- 
ja al comienzo del disco. 
5 Reajustar controles, (tono, volu- 
men) si hace falta. 
6 Final. 
Este algoritmo puede no ser ade- 
cuado para otros equipos que no 
sean el mio, aunque se ha intentado 
que esto no ocurra. Intentar cambiar 
cualquiera de estos pasos segura- 
mente Ilevar6 a resultados no espe- 
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rados. El siguiente paso en la reali- 
zaci6n de nuestro programa es rea- 
lizar el diagrama de flujo. 

Diagramas de flujo 
Son Ilamados tambin organigra- 
mas u ordinogramas. Es un paso ne- 
cesario entre el algoritmo y la codi- 
ficaci6n del programa. Se define coo 
mo la representaci6n simb61ica del 
algoritmo yes donde se expone gr6- 
ficamente la estructura 16gica del 
programa. Para representar todos 
los procesos se utilizan figuras geo- 
m6tricas conectadas entre si por li- 
neas de flujo que se utilizan para in- 
dicar el orden de ejecuci6n. Los dis- 
tintos simbolos utilizados en los orga- 
nigramas se pueden ver en la figura 
1. Vamos a pasar a su explicaci6n: 
TERMINAL: Este simbolo represen- 
ta un punto en un sistema donde los 
datos pueden entrar o salir. Se utili- 
zan para iniciar, parar, interrumpir 
o finalizar un programa o subrutina. 
ENTRADA/SALIDA: Representa el 
trasvase de datos entre la memoria 
y un medio de almacenamiento inter- 
no. Entindase que los datos son in- 
troducidos en la memoria para su 
proceso (entrada) o para registrar 
los datos ya procesados (salida). 
PROCESO: Representa la ejecu- 
ci6n de una operaci6n o grupo de 
operaciones. Los movimientos de da- 



tos de un campo de memoria a otro 
pueden representarse utilizando una 
flecha (A B). Usar el simbolo igual 
puede Ilevar a confusi6n en otros len- 
guajes de programaci6n cuyo ope- 
rador de asignaci6n sea distinto de 
este signo. 
DECISION: Ya que es muy fre- 
cuente alterar la ejecuci6n del pro- 
grama por medio de condiciones, 
nuestro rombito es el que se encar- 
ga en el diagrama de flujo de repre- 
sentar una condici6n, es decir, eje- 
cuta una acci6n dependiendo de la 
comparaci6n de una serie de datos. 
Los simbolos de comparaci6n son los 
utilizados normalmente en cualquier 
lenguaje de programaci6n, aunque 
hay uno especial, representado por 
cuatro puntos formando un cu,adra- 
do (A::B). Esto compara ambos va- 
lores, ejecutando una acci6n depen- 
diendo de si el resultado es mayor, 
menor o i.qual. 

FLUJO:-Representa el sentido de 
ejecuci6n de la secuencia de opera- 
ciones e informaciones que serdn 
procesadas. 
CONECTORES: Cuando el flujo se 
interrumpe porque se nos fermin6 el 
folio o por cualquier otro tipo de li- 
mitaci6n, ya sea necesidad o mayor 
claridad, se ufllizan los conectores. 
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Estos indican el salto de un punto a 
otro del ordinograma sin tener que 
trazar lineas que los unan. El conec- 
tor de p6ginas se utiliza cuando hay 
que conectar con un punto del dia- 
grama de flujo que se encuentra en 
otra p6gina por falta de espacio en 
la anterior. 
COMENTARIO: Se utiliza para ha- 
cer alg6n tipo de anotaci6n o acla- 
raci6n en el diagrama de flujo. 
SUBPROGRAMA: Representa una 
serie de operaciones que se deben 
ejecutar y que est6n en otro lugar. 
DOCUMENTO: Simboliza una 
operaci6n de salida por impresora o 
plotter. 
©PERACION MANUAL: Repre- 
senta los procesos off-line (fuera de 
linea) realizados manualmente por el 
usuario. 
MODIFICACION DEL PROGRA- 
MA: Se usa para indicar la modifica- 
ci6n de las instrucciones de un pro- 
grama. 
FUSION: Combinaci6n de dos o 
m6s grupos de datos en uno solo. 
EXTRACCION: Extracci6n de uno 
o m6s conjuntos de datos a partir de 
otro conjunto de datos. 
CLASIFICACI©N: El simbolo de 
clasificaci6n (sort) se usa para indi- 
car la clasificaci6n de un grupo de 
datos utilizando cualquiera de los al- 
goritmos de clasificaci6n existentes. 
INTERCALACION: O merge, se 
utiliza para designar una operaci6n 
de fusi6n con extracci6n, es decir, 
combina unos datos existentes en la 
memoria, con otros que se obtienen 
de alg6n otro sitio. 
OPERACI©N POR TECLAD©: Re- 
presenta una operaci6n en la que se 

utiliza como dispositivo de entrada 
cualquier perif6rico que se compon- 
ga de un teclado. 
DISCO: Operaci6n de entrada/sa- 
lida en la que se utiliza un disco mag- 
n6tico. 
ALMACENAMIENTO ON-LINE: 
Operaci6n de entrada/salida en la 
que se utiliza cualquier tipo de peri- 
f6rico on-line (en linea), como por 
ejemplo: cassette, disco, impresora, 
etc. 
CASSETTES: Operaci6n de entra- 
da/salida que usa como soporte de 
informaci6n los cassettes. 
REPRESENTACION VISUAL: Re- 
presentaci6n de la informaci6n vi- 
sualmente, por medio de monitor o 
televisi6n. 
En la figura 2, tenemos represen- 
tado el ordinograma correspondien- 
tea nuestro anterior algoritmo. Va- 
mos aver algunos ejemplos m6s de 
esto y Io vamos a hacer con uno que 
nos indique los pasos a seguir para 
resolver un programa. Empezare- 
mos con el al,qoritmo: 
1 Entender-el problema. 
2 Buscar el algoritmo adecua]o. 
3 Desarrollar el diagrama de flujo. 
4 Codificar el programa. 

5 Revisar que no haya errores. 
6 Eiecutarlo. 
7 Comprobar que no tenga erro- 
res 16gicos. 
8 Almacenarlo para posteriores 
USOS. 
9 Final. 
En la figura 3 tenemos el ordino- 
grama correspondiente. En ste he- 
mos visto c6mo se hace un bucle en 
un diagrama de fluio. Los podemos 
tener anidados. La forma correcta de 
hacerlo la tenemos en la figura 4. 
Tambin podemos indicar un bucle 
mediante conectores. No se pueden 
cruzar las Ineas de flujo, ya que in- 
curririamos en un error 16gico de 
efectos imprevisibles para nuestro 
programa. Esto es debido a que 
nuestro segundo bucle encontraria su 
retorno despus de haber concluido 
el primero, Io que conseguiria un 
magnifico error tipo <<next missing 
del Basic, sin contar que, cada vez 
que retornase nuestro primer bucle, 
el segundo se volveria a inicializar, 
efectuando una serie de acciones 
que probablemente no Ilevar6n a 
nada bueno. 

Veamos ahora un ejemplo basado 
en la serie de Fibonacci. Y como to- 
dos sabemos un elemento de dicha 
serie se halla sumando los dos ele- 
mentos que Io preceden en la misma. 
El algoritmo es el siguiente: 
1 Valores iniciales 0 y 1. 
2 Introduce el n0mero de valores 
que deseas ver. 
3 Imprime valores iniciales. 
4 Suma es igual a la suma de los 
dos valores anteriores de la serie. 
5 Incrementar n. 
6 Si n es menor que el n0mero de 
valores introducido ir al punto 4. 
7 Final. 
Este algoritmo es bastante escue- 
to, esto es cuesti6n de gustos. Hay 
genre que prefiere extenderse mucho 
en la explicaci6n del algoritmo, utili- 
za pseudoc6digos, etc. El algoritmo 
es bastante explicativo y el 0nico co- 
mentario es que se eligi6 el m6s r& 
pido. Algo que hay que tener en 
cuenta a/elegir un algoritmo, ade- 
m6s de su precisi6n y otra serie de 
datos que son propios de cada pro- 
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ALGORITMO 

Hacer m6ximo: 500 
Hacer minima: 1 
Pedir que se piense un 
nOmero 
Sup: m6ximo + m. i.n!mo/2 
Presentar su posoon 
Solicitar respuesta 
Si respuesta es distinto de 
ato o bai o o aderto ir al 
punto 6 
Si respuesta es alto hater 
m6ximo igual a sup--1 
Si respuesta es bajo hacer 
minima igual a sup+l 
Si no se ha acertado ir al 
punto 4 
Finai 

blema en si. Respecto al organigra- 
ma, figura 6, podria haber utilizado 
simbolos m6s explicitos pero normal- 
mente se utilizan muy pocos de elias, 
los m6s simples de dibujar, coma de- 
cisi6n, proceso y entrada/salida. En 
el programa, que es de andar par 
casa, no hay ningOn descubrimiento 
nuevo, par tanto incluyo solamente 
la enorme lista de variables: 

vl, v2 Contienen los dos 
elementos anteriores 
de la serie 
uv Contiene el Oltimo 
valor que se quiere 
ver 
suma Sin comentarios 
a Variable de control 

TABLA 
SUBRUTINAS 
I LINEAS" 
10 Definici6n de 
 variables .. 
20-40 Presentaci6n del 
programa 
50 Evaluaci6n de la 
• suposici6n 
60-100 Condiciones que 
controlan el 
programa 
110 Protecci6n contra 
trampas 
140-160 Pregunto si quieres 
jugar m6s y evalOa 
ia respuesta 

LISTA 
DE VARIABLES 

MAXI, 
MINI Almacenan valores 
m6ximo Y minima 
respectivomente 
SUP Almoceno el intento 
de overiguor el 
n0mero 
I ASUP Variable de control 
que compruebo que 
I no se repite el 
nOmero 
_ Almacena la tecla 
pulsodo 

El comentario del programa es al- 
ga que resulta superfluo ya que es 
muy simple. 
Vamos a seguir viendo ejemplos, 
esta vez no de un programa que adi- 
vina un nOmero que hemos pensado 
veamos el algoritmo. 
El diagrama de flujo correspon- 
diente es el presentado en la figura 
5 (a y b) y la codificaci6n del progra- 
ma se encuentra en el listado 1. 
Vamos a proceder a su explica- 
ci6n. 
En los dos primeros puntos del al- 
goritmo tenemos la asignaci6n de 
variables, luego hay un mensaje, 
otra asignaci6n y una entrada de da- 
tos, en este caso una respuesta del 
usuario, posteriormente el bloque de 
condiciones que manejan el progra- 
ma. 
En el ordinograma tenemos prim 
cipalmente Io mismo, vemos que el 

simbolo de entrada/salida se 6tiliza 
tanto para solicitar una informaci6n 
del usuario coma para mostr6rsela, 
el motivo de usar tantos conectores, 
es el intentar simular c6mo se proce- 
deria en el caso de un ordinograma 
m6s complejo. 
Ahora veamos la codificaci6n del 
programa, vamos primero con la tao 
bla de subrutinas, esto es una des- 
cripci6n de las Iineas que componen 
el programa, tambi6n es parte de la 
documentaci6n que debe estar pre- 
sente en cualquier programa que ha- 
gamos, en este caso Io de tabla de 
subrutinas es una forma de Ilamar- 
Io, ya que no hay ninguna. 
Todo esto puede parecer una p6ro 
dida de tiempo, pero nos ayudar6 a 
poder corregir o ampliar nuestro 
pragrama, cuando queramos sin tea 
ner que rompernos la cabeza, para 
saber qu6 era Io que hacia esa va- 
riable de la Ifnea 3000, del magnifi- 
co programa que hicimos el mes pa- ' 
sado y del que no nos acordamos de 
nada. La lista de variables es tam- 
bi6n alga muy necesario ya que po- 
demos Ilegar a tener tantas en el pro- 
grama que intentar acordarse de to- 
das seria una labor muy ardua. 
Por qu6 hemos de utilizar todo es- 
to para hacer un programa? La ra- 
z6n es bien sencilla, consecuiremos 
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programas mucho m6s r6pidos, 
efectivos y compactos. Adem6s los 
crearemos en mucho menos tiempo. 
En principio nos parecer6 tedioso y 
complicado, yo no garantizo que es- 
to vaya a ser la gran panacea del 
proramador, ya que requerir6 al- 
go de pr6ctica el Ilegar a manejar los 
algoritmos y organigramas con sol- 
tura, algo que no est6 fuera del al- 
cance de nadie. 
SegOn algunos sondeos un 10 por 
1 O0 de los programadores son capa- 
ces de crear buenos programas sin 
estas ayudas, pero el 90 por 1 O0 res- 
tante se cree en la misma disposici6n, 
Io que podemos imaginar a qu6 Ile- 
va. El proceso de programaci6n no 

se limita s61o a la tarea de coclificar, 
es asicomo se debe Ilamar a Io que 
normalmente entenclemos como pro- 
gramar, ya que este hecho abarca, 
adem6s de la tarea de transformar 
el algoritmo en una secuencia de ins- 
trucciones escritas en un lenguaje de 
programaci6n, todo Io que es el dis- 
co de los programas y estructuras de 
datos que componen el algoritmo. 
Todo esto nos Io puede ampliar muy 
bien el libro de Niklaus Wirth, titu- 
lado ALGORITMOS+ ESTRUCTU- 
RAS DE DATOS=PROGRAMAS, 
documento que no deberia faltar en 
la biblioteca de ningOn aficionado a 
programar. 
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NO 

10 REM SERIE DE FIONACCI 
20 CLS:INPUT "zntroduce el ultimo v 
0 vl O:v2-1:CLS:PRINT 
40 WHILE 
50 suma=v1+v2 
60 F'RINT suma; '/ "; 
70 vl-v2:v2=sua 
80 a=a+1 
90 WEND 

I REM ADIVINADOR 
I0 DEFINT A-Z:CLS:MAXI 500:MINI-I 
20 PRINT"PIENSF UN NUMERO Y LO ADIV 
INARE" 
30 PRINT"MI MAXIMO ES " MA×I " Y MI 
MINIMO " MINI 
40 PRINT"RESPONDA:":PRINT" A SI ACI 
ERTO":PRINT"E SI ME PASO":PRINT"D S 
I N LLEGO" 
50 SUP=(MAXI+MINI)/2:PRINT "EL NUME 
RO ES" SUP 
0 I$=UPPER$(INFEY$):IF I$ .... THEN 
bO 
70 IF I$ "E" THEN MAXI=SUP-I 
80 IF I$-"D" THEN MINI-SUP+I 
90 IF I$="A" THEN 130 
100 IF ASUP=SUP THEN PRINT"NO ME HA 
GAS TRAMPAS":GOTO 140 
110 ASUP=SUP 
120 GOTO 50 
130 PRINT"TE DIJE OUE LO ADIVINARIA 
":FOR Q=I TO IO00:NEXT 
140 PRINT"QUIERES 3UGAR MAS 
150 I$=UPPER$(INKEY$):IF IS-"" THEN 
150 
t60 IF I$="S" THEN I0 ELSE END 



Mercado 
corndn 

Con el obieto de fomentar las rela- 
clones entre los usucrios de AMSTRAD, 
MEECADO COMUN te ofrece sus pbgl- 
nos para publicor los pequefios anuncios 
que relacionodos con el ordenador y su 
mundo se ajusten al formato indicado a 
continuaci6n. 
En MERCADO COMUN tienen cab[da, 
anuncios de ventas, compras, clubs de 
usuorios de AMSTRAD, programadores, 
y en general cualquier close de anuncio 
que pueda servir de utilidad a nuestros 
lectores. 
Envianos tu anuncio meconograflado 
o: NOBB¥ PR|SS, S.A. 
AMSTRAO SEMANAL, 
Apartado e ¢rreas 4.0 
28080 MADRID 
IABSTENERSE PlRATASI 

Vendo 1.--Amstrad CPC-664 
con pantalla color. 2.--Impresora 
PRINTER-80 INDESCOMP 
(adaptada a Amstrad) matricual, 
40-80-142 col; 80 cps; 640 puntos 
gr6ficos. 3.--Juego regolo: 
COMBAT LINX y otros. Precio 
total: 160.000 ptos. Tel. (93) 
788 07 53 (21,30-22,30). 
Me gustara en primer lugor 
contactar con usuarios de CPC 
464 para intercambiar ideas, 
iuego, etc. (a set posible de Avila 
aunque no necesariamente). En 
segundo lugar me gustaria 
obtener el Exploding Fist. Bien par 
dinero o bien par otros 
programas. Tambin estoy 
interesodo en: Beach Head, 
Hypers Sports, Decatlhon, Fighter 
Pilot. Con los mismos condiciones 
que Exploding Fist. Estoy obierto a 
otras ofertas. Los interesodos 
Ilamar al (918) 22 74 99 desde los 
6 a los 6,30 o bien de 8,30 en 
odelante. Fines de semana a 
cualquier horo. 
Estoy Jnteresado en comprar un 
monitor color, o cambiarlo par 
uno GT/65 con garantia 
Indescomp, comprodo hate 2 
meses, pagando la dferencia 
justa. Tambi,n cambio juegos, 
programas, utilidades, etc., tengo 
unos 100: mandar lista. 
Interesados dirigirse o: Urb. Bahia 
de Algeciras Bloque 2C-2: 2.°C. 
Algeciras (C6diz)... Monolo 
Ben(tez. 
ese ¢t¢ con usuarios de 
Amstrad, de Gandia y 
alrrededores, pora ofrecerme 
coma profesor de programaci6n 
(200 pros/h). O para intercambiar 
listados e ideas. Abstenerse los 
mani6ticos de los juegos. Santiago 
Torrego Calabulg. c/Abad Solo, 
92, Gandia (Valencia). 

Vendo Amstrad CPC-464, 
monitor color en perfecto estado, 
incluyendo late de 50 programas 
a escoger entre m6s de 100: 
D EV PAC/AMSWO R D 
II/PASCAL/AMSBASE SCREEN 
DESIGN ER/AMSCALC .... 01timos 
juegos, 7 libros. Todo par 85.000 
pros. M6s informaci6n: Eliseo 
Gonz61ez Real c/Pereo, 4. Vivedo 
(Contabria). Tel.: (942) 88 48 24. 

Urge vender Spectrum Plus 48K. 
(7 meses de garontia). Fuente de 
alimentaci6n, Interface Kempston, 
4 libros de programaci6n, m6s de 
30 programas (exploding Fist, 
Contabilidad, etc.) 24.000ptas. 
Interesodos: AIfrez Monedero. 
Academia G. a Civil. Aronjuez. 
Tel. 891 21 45 (91) ; de 17,30 a 
19 horas. 

Vendo programa de contabilidad 
igual que el que viene en la 
revista. Precio razonable. 
Interesados Ilamar al Tel. (91) 
207 81 89. Preguntar par Pedro. 

Vendo consola de videojuegos 
Atari-2.600, un joystick, 5 
cortuchos, Defender, Berzeck, 
dog'em, Space Invaders, y Missile 
Comand. M6s 2 mangos de 
paleta, m6s instrucciones en 
castellano, cables, etc.; todo ella 
cosi nuevo y en pefecto estado de 
funcionamiento. Adem6s 5 revistas 
de Microhobby (Spectrum). Todo 
ella par 19.500 ptas. 
(negociables). Interesados Ilamor 
al tel.: 23 51 14 de Murcia. 
Preguntar par Jovier (llamar a 
cualquier hora de la tarde de los 
s6bados). 

Vendo Amstrad CPC 464 color. 
Programas utilidades 
(Ensamblador, desensablador, 
copi6n), juegos muy buenos 
(ajedrez, marcianos, codename 
mat, etc.), manual del firmowre, 
Pascal (Hisoff Pascal), tratamlento 
de texto (Amsword), programas 
de dibujo (CAD/CAM, artisticos, 
etc.}... 60.000 pros. Noches. 
Vctor, Tel. (93) 210 23 69. 

Vendo o camblo programas de 
Amstrad. Usuarios de toda 
Espafia interesados, escribir a 
Carlos Rib6 Vilaseco. 
Urbanizoci6n Mirosol, 1, Solona 
(Lrida) o Ilamar al tel. (93) 
811 28 35 para Ilomados de fuero 
de la povincia de Barcelona. 
Llamar de 1,30 o 3,00 y de 8 o 
9,30. 

Vendo Amstrad CPC 464 con 
monitor en f6sforo verde. Manual 
y 100 programas (juegos, 
aplicociones...) induidos. 
Interesados Ilamor al (91) 
260 79 94. Preguntar par Juan 
Carlos de 3 o 5. 

LE 
CONCEDEM I 
TRES 
DES I 

• " I 
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RAFICOS 3D 

es enviamos estos 
programas para proporcionarles 
unos gr6ficos hechos por medio de 
circunferencias, las cuales, pensamos 
pueden ser del agrado de todos los 
lectores de 6sta, nuestra revista. 
En ellos hemos utilizado el seno y 
el coseno ( COS y SIN), comunicados 
con medidas y Iineas rectas. 
En el segundo programa se com- 
binan los colores para darte un me- 
jor efecto al formarse el gr6fico. 
Csor L6pez Lorenzo 
Fernando Julio Ojeda Frances 

5 REM primer programa 
15 CLS 
25 FOR n=1 TO 100 
35 DRAW 320+200*COS(hl)200+20*SIN(N 
45 DRAW 320+|O0*COS(N),200+I&9SIN( 
N) 
55 NEXT:END 

iO REM EFECTO 
20 CLS 
30 FOR n I TO 60 
40 PLOT 3?0,360:PEN O:INK 
50 DRAW 320+200*COS(n)200+90SIN(n 
) 
60 PEN I:INK 1,19 
70 DRAW 300+40COS(n)220+73SIN(n) 
80 NEXT 
90 GOTO 90 

Centro Comercial Guadalupe 
Ctra. Canillas, 136-1. a planta 
Tel. 200 80 85 ,¢MDRID 

Centro Comercial El Bulevar 
La Moralcja 
Tel. 654 16 12 MADRID 

Tambin abierto domingos de i0 a 2 
Centro Comercial Ciudad Sto. Domingo 
Ctra. de Burgos, km 28. 
Tel.: (9) 622 12 89 
Algete (Madrid) (Cenlra/) 

MICRO DEALER 

MA YORISTAS DE INFORMA TICA 
AMSTRAD PCW 8512 
AMSTRAD PCW 8256 
AMSTRAD CPC 6128 F6sforo verde y color 
AMSTRAD CPC 472 F6sforo verde y color 
Impresoras, Inledaces. Joysticks 
Dsketles de 3 pulgadas, cable, etc. 
Sinclair. Commodore. New Print. 
Spectrawdeo. Compatibles iBM 
CL Comandame Zonta, 13. 28020 Madrid 
Tells. 233 07 81. 233 07 3,.5 

MASTER HARD 

Servicio T  cnico 
Para AMSTRAD 
en Galicia, 
Le6n 
y Asturias. 
CWMagdalena, 213 
El Ferrol 
Tel.: (981) 35 84 32 

MECA.SCRIB 

El Curso de Mecanografia para el AMSTRAD PCW 8256. 
iilMPORTANTE PARA ACADEMIAS!! 
• Gestibn de alumnos. 
• Capacidad para 60 alumnos. 
en un solo diskette. 

Pedidos a: 

EDUCOMP, S.A. 
C/Molina de Arag6n, 1. 
Tel. (911) 2232 12 
19003 GUADALAJARA 

FUNDAS PARA TU <<AMSTRAD 
464-472-664 y 628 ....... 2.262 
8256 ................... 3.250 
Joystick Quickshott II ...... '1.975 
Pago reembolso, mQs 250 ptas. de 
gastos de envio. 
Indicar modelo y monitor [verde o co- 
lor]. 

Pedidos a: BAZAR POPULAR 
Apartado 27,040 
08080 BARCELONA 

PUBLICIDAD 
/ 
".GABINETE DE INFORMATICA 
• Clases de Inform6tica 
sobre AMSTRAD 
En grupos e individuales. 
• Ordenadores AMSTRAD y 
perifricos 
Los meiores precios 
• Software: Est6ndar y a la medida 

ZURBANO, 4410 47 63 
28010 MADRID 

Corta y pega este cup6n en la casilla 
correspondiente de la pgina 16 del 
n0mero 31 de AMSTRAD Semanal, 
una vez completada la p6gina, 
envianosla junto con tus datos, iSUERTE[ 

40 /COHOee AM$TRAD 

OPERA CION CAMEO 
Psate a monitor color por 
25.000 ptas. 
Valoramos: 
Tu Amstrad 464 en 50.000 ptas. 
Amstrad 664 en 60.000 ptas. 
En la compra de un Amstrad 
CPC 6128, PCW8256. PCW8512 
Consulte para monitor color 
 (91) 270 34 97 de 4,30 a 8,30 

E$CUELA de INFOflMAT/CA APL/CADA 
C+:NTRO HOMOLOADO Y OLABORADO Dl:t. INE 
• CUflSO de INICIACION 
(6 meses) 
Diploma: PROGRAMADOR BASIC.1 
• INFORMATICA BASICA 
(96 horas} 
Diploma: PROGRAMADOR EN BASIC 
"PflOGflAMACION A VANZADA 
(110 horas) 
Diploma: ASTER EN PROGRAMACION 
Dirigido a mayores de 12 aSos. 
ClUDAD de los PERIODISTAS. Avda. Hen'era Ofla, 171 bajo 
Frente al Instituto N. Hen'era Oria. Tefs.: 2016409. 2019385 
TODAS  CL,SES SON PRACTICAS 
CON ORDENADORE$ ,AS'RAD 0 SPECIRUA 



sinduda 
alguna 

A tray,s de esta secci6n se pre- 
tende resolver, en la medida de Io 
posible, todos los posibles dudas 
que atormenten a todas los 
personas interesadas en el mundo 
del AMSTRAD, sean o no poseedo- 
res de uno y, si Io son, se encuen- 
trenen cualquier nivel de destreza 
en su manejo. 
Semanalmente, aparecen en estas 
p6ginas los consultas de la mayor 
contidad de usuarios posible; ella re- 
dundar6 en un mejor servicio y en 
un contacto mds estrecho entre to- 
dos nosotros a troves de la revisto. 
SIN DUDA ALGUNA est6 
abierta a todos. 

UN JOYSTICK 
NO BASTA 
A) Tengo un CPC 6128, y teclean- 
do un programa, me encontr6 con 
este signo ( }, yen el teclado no 
estaba. Me podrian decir a qug 
equivale? 
8} Quisiera saber sial CPC 6128, 
se le pueden poner dos joystick. Mu- 
chas gracias. 
Maurlclo L6pez JImnez (Avila) 
A) El signo al que te refieres es el 
de exponenciaci6n, y Io que ocurre 
es clue casi todas las impresoras 
adoptan para representarlo un sig. 
no estdndar que no coincide con el 
que Amstrad ha colocado en el te- 
dado. Podrds obtener ese cardcter 
si pulsas la tecla que se encuentra in- 
mediatamente a la izquierda de la te- 
cla CLR, esto es, la flecha. 
B) Existe, al menos, un joystick que 
distone de una salida para otto joys- 
tic, con Io que pueden conectarse 
dos de farina simultnea. Es de Am- 

FORTRAN: 
POTENCIA MA TEMA TICA 
Soy estudiante de Informdtica en la 
Universidad de Sevilla y poseo un 
CPC 6] 28. Me gustarfa conocer qu 
posibilidades hay de conseguir un 
compilador Fortran para un ordena- 
dor. Tambin me gustarla conocer 
las compatibilidades existentes con el 
PCW 8256 y si los compiladores son 
compatibles entre elias. 
Juan Luls BI6zquez (Sevilla) 
Para el CPC 6128 existe un cam- 
pilador de Fortran de Microsoft, con- 
cretamente el MS-FORTIA COM- 
PIL EE, el cual es una implemeniaci6n 
del ANSI-FORTRAN X3.9. 
Cuesta 24.500pesetas ( + IVA) y Io 
vende Mycrobyte (Paseo de la Cas- 
tellana, 179-1, Madrid 28046, tel.: 
442 54 33-44. 
En cuanto a la compatibilidad con 
el PCW 8256 es alga dudosa, ya que 
ambos ordenadores usan un farina- 
to de disco ligeramente distinto. 
No obstante, cada vez m6s genre 
adquiere la sana costumbre de incluir 
una versi6npara el 128 y otra para 
el 256 en el mismo disco. 

MSX 0 A/vlSTRAD 
Quiero comprarme un ordenador 
yen. casas de ordenadores me dicen 
"que Io mei.or ¢s mstrnd y que uno 
-d&'lo .istemas mejores es el MSX y 
en casas de ordenadores he pregun- 
tado si habla Amstrad en sistema 
MSX y unos dicen s( y otros no. Mi 
pregunta es esta: Hay Amstrad en 
sistema MSX? y si Io hay, cudndo Ile- 
gar6 a Espafia: Cu6ntas K tendr6: 
Lui/Felipe Barrillo 
No existe ningOn Amsttad bajo el 
sistema MSX. Estas siglas correspon- 
den a Microsoft Extended Basics, y 
encarnan un acuerdo entre varias 
compafiias japonesas y europeas pa- 
ra establecer un estSndar en el mun- 
do de los ordenadores caseros. 
En cuanto a qu es mejor, si 
trad o MSX, la respuesta es diflcil, 
porque depende del gusto personal 
de coda uno. 
$i nos basamos en alga objetivo, 
coma el ndmero de unidades vendi- 
das, la respuesta es que Amstrad ha 
causado un impacto mucho m6s pro- 
fundo en Europa y Espaa que MSX, 
al menos par el momenta. 

* TA " ESTIMTEG 
EUROPA iEL DESTINO 
TEATeO DE OEeACmES  DEL MUNDO ESTA 
WAR ENTUSMANOS! 
Si est6s decidido a desotar una 
.- ,,. guerra nuclear sabre el ploneta, no 
-o olvides la clove que te permitir6 tomor 
.*   el control de tus boterias de misiles: 
SOL MEDIANOCHE 
Par motivos de seguridod tu ordenodor 
_ ..k,& ,/ --, te Io pedir6 en el momenta oportuno. 
   11 Recuerdo: SOL MEDIANOCHE es la 
AA T -- clove. 
, o, o ,, NO ES NECESARIO QUE NOS LA 
 SOLICITES P0R TELEFON0 

4 297318 

A usted, minorista, y con s61o marcar este 
telfono, le concedemos Io que siempre ha 
esperado de su mayorista informtico. 

Todas las marcas, Amstrad, Spectrum, 
Commodore... para que con una sola 
Ilamada, usted tenga todo Io que 
necesita. 

2 Rapidez en el servicio. Le entregamos 
su pedido en 24 horas, sin demoras y 
en cualquier punto de Espaa. 

3 Trato directo. Mantenemos un contacto 
continuo con usted, nos preocupamos 
por sus problemas y le ayudamos a 
solucionarlos. Queremos que usted sea 
algo mAs que un cliente. 

Si es esto Io que pJde a su mayorista, 
LLAMENOS 

--- DIEYRIHUCION 

INYROLINE, s.4 

CUMPLIMOS 
SUS DESEOS 



1 

I  FERlil IHFORHATICA 

iVen a conocer el apasionante mundo 
de los ordenadores Amstrad! 
Las m&s importantes empresas espaSolas y europeas 
del sector se dan cita en Madrid para presentar y 
ofrecer sus m&s recientes productos para AMSTRAD. 
Programas de acci6n, juego, aventuras... Programas 
educativos, de utilidades, lenguajes... Programas de 
gesti6n y profesionales... Cientos de titulos inditos... 
Perifricos, ampliaciones de memoria, emuladores, 

tabletas gr&ficas, digitalizadores, impresoras, I&pices 
6pticos, redes de comunicaci6n, discos duros, 
sintetizadores de voz, correo electr6nico, tratamiento 
de im&genes... 
Las Oltimas novedades editoriales... Todas las 
revistas... 
Una ocasi6n Qnica para conocer de "primera mano" los 
increibles ordenadores personales AMSTRAD y todo 
cuanto para ellos se produce en el mundo. 

I  FERIA 

li liRHATICI 

• Patrocinada y org.anizada por 
AMSTRAD ESPANA 
• Horario continuo de 10:00 a 19:30 
• Entrada: 200 ptas. 
• Sorteo de Ordenadores AMSTRAD entre 
los visitantes. 

23-24 .-25 MAYO 
Palacio de Exposiciones y Congresos de adri, d 
p.o Castellana, 99.28046 MADRID 
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El programa de gest]dn de Emlresa RPA Systems es un claro ejemplo de Io que 
debe ser una solucidn informtica. 
Una herramienta eficaz que hate mds fcil la tarea de la Gestidn Emprasafal, 
huyendo de innecearlas complicacione¢ Porque para obtener el maximo 
rendimiento de los programas RPA Systems no @ neceeario aber pogra ,":. 
Con un lenguae compilado de alto nivel y contlnuas ayudas en pantallas, son mu 
fciles de usar. Como el programa de Gestidn de Emprasas que,disetado para 
trabajar con los Amstrad 8256. 6128 y 8512,incluye los subprogramas de: 
"Contabllidad General,'Ndminas, Facturacl<n. FIchero .de cllentes y proveedores. 
SI es Usled pequeRo o mediano empresario en RPA Systems encontrar una 
eficaz ayuda para la claslficacidn y control de clientes, realizecidn de facturas, 
totallzacldn de cobros y pagos, getleracldn de ndminas y contabilidad ajustada el 
plan general contalle. 
Adems, et programa de gRstidn de empresa de RPA Systems permlte Ilevar un 
perfecto control de la aplicaclon del IVA. 
RPA Systems es la respuesta eflcaz a sus necesldades de Iqformat/zcl6n 
Asi de sencillo. 

SOLICITE INFORMACION EN: 
oivis/6n /normtica de rcr , ovts,n On.line de LERIA$ 
Tiendas especializadas en informtica y Equlpos de oficlna. 

Olstrtbldor ex cluslvo en Espana: I : }r ,_ T :  :  I  : I (7 
Gahleo, 25. En)raplanta ,4, Tels, 47 97 51 / 98 .09, 28015 Madrid. 
Dlstrlbuldor excluslvo en Catelunya ,  OISTRI: UClON; S,A. 
Tarragona, 112. Tel. (93) 325 15 12. 08015 Barcelona. Telex: 93133 AGEE E 



